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ABSTRACT 


Contextual classifiers are being developed as a method to exploit the 
spatial/spectral context of a pixel to achieve accurate classification. 
Classification algorithms such as the contextual classifier typically re- 
quire large amounts of computation time. One way to reduce the execution 
time of these tasks is through the use of parallelism. The applicability of 
the CDC Flexible Processor system for implementing contextual classifiers is 
examined. Extensive testing on a CDC Flexible Processor simulator was done. 
Results show a dramatic increase in throughput can be obtained using the CDC 


Flexible Processor array 



1. INTRODUCTION 


Since man has been able to fly^ he has attempted to gain information 
about the earth from above. Over the past decade, attempts to extract infor- 
mation from muLtispectral image data have proved increasingly successful. 
Traditional methods of pattern recognition applied to individual picture 
elements have yielded accurate results; however, greater accuracy can be ob- 
tained if contextual information is also employed. Accuracy has been in- 
creased by up to 55.8% using contextual methods C103. Because the computa- 
tional requirements of the contextual classifier are very large, convention- 
al computer systems are not able to handle the processing on a real time 
basis ni03. One way to reduce the execution time of these tasks is through 
the use of parallelism. 

Various parallel processing systems that can be used for remote sensing 
have been built or proposed. These include pipelined processors CIU, mul- 
timicrocomputer systems C8,93, and special purpose systems E4T. The Control 
Data Corporation (CDC) Flexible Processor system C1,2,33 is a commercially 
available multiprocessor system which has been recommended for use in remote 
sensing C5H. The Flexible Processor system includes up to 16 separate pro- 
cessing units called Flexible Processors. In addition to the Flexible Pro.- 
cessors, a typical configuration might consist of: a CDC Cyber 170 series 
computer, a system controller featuring a Cyber 18-20 computer, up to 64K 
bytes of bulk memory per Flexible Processor, and a high speed data transmis- 
sion structure called a ring C53. In depth discussion of both hardware and 
software aspects of the Flexible Processor system can be found in Chapter 2. 
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There is a simulator for the Flexible Processor array written in the C 
programming language C63, which runs on the UNIX operating system. The 
simulator resides in 64K bytes of main memory, and 161280 bytes of secondary 
storage during the simulation of 16 Flexible Processors. Further discussion 
of the simulator is in Chapter 3 and Appendices 1, 2, and 3. 

The main computation required by the contextual classifier resembles 
the Gaussian maximum likelihood classifier. Since the maximum likelihood 
classifier is considerably less complicated, the software development re- 
quired for the contextual classifier was based on the maximum likelihood 
classifier. The logic behind the maximum likelihood classifier, the use of 
a multiprocessing system to execute a maximum likelihood classifier, and a 
timing analysis of the maximum likelihood classifier can be found in Chapter 
4. 

Contextual classifiers are discussed in Chapter 5. A description of 
the contextual classifier, a serial algorithm, a multiprocessor implementa- 
tion classifier, and timing analyses are given. 

In Chapters 4, 5, and 6, timings of the Gaussian maximum likelihood 
classifier and the contextual classifier are presented. Both classifiers 
currently run on the Flexible Processor simulator as discussed in Chapter 3. 
Chapter 6 draws conclusions on the usefulness of the Flexible Processor ar- 
ray for performing contextual classifications. 
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2. OVERVIEW Of THE FLEXIBLE PROCESSOR ARRAY 

The Hardware 
2.1.1 Introduction 

Key eLements of the FLexible Processor are discussed first. The focus 
is on the Flexible Processor, which is the basic building block of the Flex- 
ible Processor System. Further details are in C2,33. 

2.1.2 The COC FLexible Processor 

The basic components of a Flexible Processor are shown in Figure 2.1. 
Each Flexible Processor is microprogrammable, allowing parallelism at the 
instruction Level. An example of the way in which N Flexible Processors may 
be configured into a system is shown in Figure 2.2. There can be up to 16 
Flexible Processors Linked together, providing much parallelism at the pro- 
cessor Level. The clock cycle time of an Flexible Processor is 125 nsec 
(nanoseconds). Since 16 Flexible Processors can be connected in a parallel 
and/or pipelined fashion, the effective throughput can be drastically in- 
creased, resulting in a potential effective cycle time of Less than 10 nsec. 

A central feature of the Flexible Processor is its dual 16-bit internal 
bus structure, enabling the Flexible Processor to manipulate either 16- or 
32-bit operands. If 32-bit operands are used, the Flexible Processor can be 
programmed to execute floating point routines (on its integer hardware) 
based on the floating point representation of such systems as the IBM 370 
and the PDP-11/70. If the needed data width is 16 bits, the Flexible Pro- 
cessor can be programmed to perform different operations on each of the 
16-bit words simultaneously. 
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Fig. 2.1. The Basic Components of a Flexible Processor. 
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2.1, .3 Register Files 

In each FtexibLe Processor, there are two files of registers, one 
called the temporary register file and the other the large register- file. 
Both are divided into 16-bit addressable subunits. If the needed path width 
is 16 bits, the two files can act Like four files, thus creating more ad- 
dressable space. A special feature of the temporary file is its two 
separate read and two separate write address- registers. This can save much 
CPU time in many types of matrix operations. The large register file has 
its own two read/write address registers. It is possible to do either a 
read or write to either file and simultaneously increment (or decrement) the 
address register. The temporary file is 16 words, 32 bits each, while the 
large file is 4096 words, 32 bits each. All of the register files consist 
of 60-nsec random-access memory. 

2.1.4 Registers and Arithmetic Units 

Details of the architecture of an Flexible Processor are shown in Fig- 
ure 2.3. There are three 32-bit general purpose registers called the E, F, 
and G registers. All of these registers are connected to the arithmetic 
logic unit (ALU), which can perform 32-bit additions in 125 nsec. The E and 
G registers are readable directly through the ALU. The general purpose re- 
gisters can be shifted separately, or the E and F registers can be combined 
into a 64-bit shift register for double-length shifts. The output of the 
ALU is a 32-bit register. A, that is addressable by byte (8 bits). This 
makes a variety of byte manipulations possible. Separate from the ALU is a 
hardware integer multiplier, which takes two bytes and multiplies them to 
produce a 16-bit result in 250 nsec. The input registers are the P and Q 
registers, which are each 16 bits wide. The user can choose which two bytes 
are to be multiplied. The Flexible Processor is equipped with four index 
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Fig. 2.3 FLEXIBLE PROCESSOR STRUCTURE 





















- 8 - 


registers and eight corresponding compare registers. The index registers 
can be used for Looping and can be incremented or decremented during any 
statement not addressing those registers. The Flexible Processor also .con- 
tains a hardware jump stack, so it is capable of handling standard types of 
program calls such as subroutine jumps. 

2.1.5 Micro-memory and Input /Output 

The micro-memory consists of 4K 48-bit words. It stores the micropro- 
gram. Each .Flexible Processor in a system can contain a different program. 

Input/Output (I/O) for the Flexible Processor depends on the overall 
system (i.e., the Flexible Processor array and its host machine). An Flexi- 
ble Processor is capable of interrupting another Flexible Processor for I/O. 
I/O among the Flexible Processors is done one of two ways. The first is a 
very high speed communication link, arranged in a ring configuration 12,33. 
It operates at four mega-words (16-bits per word) per second. Each Flexible 
Processor has a station on the ring, and each station on the ring is con- 
nected to two other stations. When an Flexible Processor does a write to 
the ring, it gives 16 bits of data and the address of the destination. If a 
station receives data for another address, it shifts the data to the next 
station. This is continued until the data reaches the correct station. 
Special hardware has been added to remove data from the ring in the event of 
a station failure. The data is Loaded into the "input file.” This 16 
32-bit/word register file can be used as a small buffer. Another form of 
I/O is through up to 16 64k-byte banks of shared 160-nsec memory. This is 
not as fast as the previous method; however, for large data transfers, it 
frees the ring for other communications, as well as providing a buffer 
between Flexible Processors. 
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2.1.6 Microprogramming of the FLexibLe Processor 
The Flexible Processor is micro-programmed in "micro-assembly 
language," allowing parallelism at the instruction level, as indicated in 
the Flexible Processor coding form shown in Figure 2.4. For example, it is 
possible to conditionally increment an index register, do a program jump, 
multiply two 8-bit integers, and add the E and G registers, all,t simultane- 
ously. This type of operational overlap, in conjunction with the multipro- 
cessing capability of the FLexibLe Processors, greatly increases the speed 
of the FLexibLe Processor array. 

2.1.7 A Flexible Processor Image Processing System 
Figure 2.5 is provided as an example of one possible Flexible Processor 
array configuration C5D. The setup of this system has many desirable 
features for picture processing. The parallel-pipelined architecture of the 
Flexible Processors enables the system to do rapid matrix multiplications. 
There are image displays attached, so it is possible to view the pictures. 
The two 800-bpi tape drives, along with the SOM disk unit, contain enough 
storage space for jobs that require large amounts of memory. In addition, 
the system can handle up to eight terminals on its resident operating system 
(called ICE). Batch jobs can also be run from its 300-card-per-minute 
reader. 


The Software 
2.2.1 Introduction 

The host for the Flexible Processor system is programmable in FORTRAN. 
FLexibLe Processor programs written in assembly language can be called from 
the FORTRAN library, enabling the calling programs to be written in FORTRAN 
C5J. The average user, then, will not have any contact with the Flexible 
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Pnocessor assembly Language, making “the use ot the system much- easier. if 
the necessary Flexible Processor routines exist, data analysis packages, 
such as UARSYS, which are written in Fortran can, with very simple' modifica- 
tions, run on the Flexible Processor system. The rest of this section over- 
views how to program an Flexible Processor at the micro-assembly language 
Level. 


2.2.2 Registers 

The three general purpose registers CE, F, and G) are each divided in, 
halves because they are 32 bits wide and the busses are only 16. The most 
significant bits of the registers are referred to as the "one" group and the 
least significant bits are referred to as the "zero" group. For example, the 
most . significant bits of the E register are called El, and the least signi- 
ficant bits of the E register are called EO. 

The ability to address registers in groups of 16 bits allows one to ad- 
dress halves of two separate registers simultaneously. For example, if one 
wished to write into the upper 16 bits of the F register and the Lower , 16 
bits -of the G register, the pair would be referred to as FiGO in the com- 
mand. Both will get the same data, but they will get it in one machine cy- 
cle instead of two. This increases throughput when, for example, loading in- 
itial conditions. 


2.2.3 The Transfer Constant Instruction 
These registers can be Loaded with a constant using the Transfer Con- 
stant (TO instruction. Figure 2.4 shows the coding form. Line three gives 
the form of the TC instruction format. Omitting the AAAA and the comments, 
the basic form of the instruction is: 

TC DSTO DSTI 
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The $ tells the assembler that the four following digits are to be inter- 
preted as hexadecimal. This command places the constant on both data lines 
to enable the Loading of two registers simultaneously. The DST (destination) 
is filled in by an appropriate register which can read off the corresponding 
bus. Not all registers can provide data to (“source") or receive data from 
("destine") both busses. For example, FI can not read (destine) bus 0, the E 
and G registers can only be sourced into the arithmetic Logic unit, the 
El and GO registers can read only from bus 1 C33. Some examples of correct 
TC instructions are: 


TC 

$FFA8 

E0G1 

FIGO, 

TC 

$0100 

EO 

GO , 

' TC 

$0101 

EO 

NOP . 


The first command in the example transfers the hexadecimal constant FFA8 to 
the sixteen-bit registers EO, F1, GO, and G1. The second command transfers 
the hex constant 0100 to the EO and GO registers. In the third command, the 
NOP indicates bus 1 is not used. Note that while it is not possible to 
source two different registers at the same time, it is possible to destine 
two registers off the same bus. at the same time. 

2.2.4 The Transfer Register Instruction 
Another way in which the registers can be used as a source of informa- 
tion is in the Transfer Register (TR) instruction. This is the fourth format 
shown in Figure 2.4. The basic format of the instruction is: 

TR SRCO DSTO SRCI DSTI 

This instruction tells the computer to source the register in the SRCO field 
to bus 0 and to use the register(s) in the DSTO field as the destination(s) . 
In the event that the other bus is not to be used, a NOP must be placed in 
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both the SRC and DST fields corresponding to that bus. 

2.2.5 Using the Temporary Files 

A special feature of the temporary register fi-les, discussed in 2.1.3, 
is that it has separate read and write indices. The indices are TORA, TOWA, 
T-IRA, and TIWA, which stand respectively for Temporary file 0 Read, Address, 
Temporary file 0 Write Address, Temporary file 1 Read Address, and Temporary 
file 1 Write Address. Each , is four bits in length. When using the temporary 
files, one usually initializes the index value and then uses special, in~ 
structions to increment, decrement, or clear these registers while doing 
other -operations. When storing information to a temporary file,/ the mnemon- 
ic used is TFxf, where x is the file number and f is the function to 
be performed. The following is a list of the available functions: 

U increment the corresponding index 
P decrement the corresponding index 
C zero the corresponding index 
N perform no operation on the index. 

The machine will .update the read or write address depending on the context 
used, i.e,, if a temporary file is used as a source, the read address will 
be assumed, and if it is used as a destination, the write address will 


be assumed. Some examples are as 

follows 

• 

• 


TC 

$0101 

TFOU 

TF1D 

TC 

$0101 

TFON 

TFIC 

TC 

$0101 

TFOC 

TF1C 


In the examples, the hex constant 0101 is stored in the temporary file while 
the write pointer is incremented, decremented, unchanged, and cleared. 
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2.2.6 Using the Large FiLes 

The Large files, discussed in Section 2.1.3 have only one pointer per 
file, but are accessed in the same manner as the temporary file. To access a 
file, the format is LFxf, where x is the file number and f is the function 
to be performed on the file. The functions performed are the C, D, and N as 
defined in Section 2.2.5 and A which adds index register 0 to the 
corresponding index and uses that Location as the desired address. The in- 
struction 


TC $0101 LFOU LFID 

would store the hex constant 0101 in Large files 0 and 1 while incrementing 
the pointer for Large file 0 and decrementing the pointer for Large file 1. 
The length of the Large file pointers is 10 bits. Large file pointers are 
called LOA and LIA. Both the large file and the temporary files pointers can 
be accessed in the same manner as standard general purpose registers. 

2.2.7 Programming the Arithmetic Logic Unit 
In the TR instruction there is a field Labeled ADD (see Figure 2.4). 
This field controls the function of the ALU. Output from the ALU is avail- 
able as the A (accumulator) register, which can be sourced in the same 
manner as the F and G registers. In the event that the A register is not 
sourced, the result is moved to the F0-F1 register pair. One feature of the 
A register is different from the other general purpose registers in that it 
is byte addressable. This ability makes it one of the most powerful regis- 
ters on the machine. Figure 2.6 is a Listing of the ALU mnemonics and a 
brief interpretation of their meanings. It is important to remember that it 
is possible to micro-program this machine; thus there are many possibili- 
ties that are not in the mnemonic set. This is the extent of the assembler 
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Mneirtonic': 

Function: 

Comments': 

ADD 

A=E+G 

Twos complement add the- E and' G regs. 

AND 

A=EG 

Logical AND the E and 6 registers. 

E 

A=E 

This is the method for sourcing the 
E register, making it possible to get 
data to either bus from the E register 

E+1 

A=E+1 

This makes it possible to increment-. 

E-1 

A=E-1 

decrement, and double- the E register 

E+E 

A=E+E 

without ever having to load a con- 
stant. 

E-G 

A=E>G 

Twos complement subtract the E and> G 
register pairs. 

E=G 

A=E-G-1 

The Flexible processor has a branch, 
if negative' command. If the E' regis- 
ter is less than or equal to the G 
register, this will branch. 

EN' 

A='E 

Logically complement the E register 
(E NOT). 

G 

A=G 

This makes it possible to use the G. 
register as a data source to both 
busses. 

GN 

A='G 

Logically complement the G. register. 

OR 

A=E+G 

Logically OR the- E and G registers. 

SB1 

A=E-G 

Ones' Complement subtract the G 
register from the E register. 

SET 

A=E+'E 

Set A to all ones. 

XOR 

A=E+G 

EXCLUSIVE OR E and G registers. 

ZRO 

A=E'E 

Load A register with all zeros. 


Fig. 2.6, 


Complete Listing of the ALU Mnemonics. 
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mnemonics for the ALU, but there are more commands. Figure 2.7 shows a 
Listing of the entire command set. To be able to use this List, first type 
either an A or a L (for arithmetic or LogicaL) and then a C or a N (for car- 
ry or no carry). The A(L) determines the basic function type. The C(N) 
further determines the type of function by determining the type of carry. 
With the above, it is possibLe to use Figure 2.7 to determine the exact 
function number desired. The onLy other entity necessary is the function 
number (from 0 to F). Thus an ANF describes the arithmetic function in the 
no carry portion of the tabLe that is in the fifteenth row. ALL three of 
the function descriptors are pLaces in the coLumn LabeLed ADD (see Figure 
2.4), 

As shown in Figure 2.3, the A register is divided into four bytes num- 
bered zero through three. If AO is sourced, bytes 0 and 1 wiLL be obtained. 
Likewise, sourcing A1 wiLL yieLd bytes 2 and 3. If bytes 1 and 2 are needed 
together, adding an SW (which stands for SWap bytes) to the end of AO wiLL 
yieLd the desired resuLt. If bytes 0 and 3 are needed, adding an SW to the 
end of A1 wiLL yieLd the desired resuLt. Thus, AOSW is the correct way to 
address bytes 1 and 2. 

Another feature of the AO and A1 registers is that they can do a right 
shift, preserving the signs of the registers. This is accompLished by conca- 
tenating a RS (Right Shift) at the end of the desired register. It is pos- 
sible to do a right shift in conjunction with a byte swap. The ALU has the 
abiLity to shift a byte of zeros into either (or both) of the AO and Al re- 
gisters. This is accompLished by shifting both accumuLators right by one 
byte, and Loading the upper byte of the pair with zeros. The mnemonic for 
this is a RZ (Right shift Zero fiLL) concatenated at the end of the byte 
pair desired. Figure 2.8 is a List of the possibLe combinations of the ac- 
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Function Logical Arithmetic Operations 

Number Functions No Carry With Carry 


0 

F 

= 

•E 

F 


E 

F 

S 

E+1 

1 

F 

- 

'CE+G3 

F 

= 

CE+G3 

F 

= 

ee+g:+i 

2 

F 


PE 

F 


ce+'g: 

F 

= 

e:e+'g3+i 

3 

F 

= 

PF F] 

F 

= 

-1 (2's comp) 

F 

= 

0 

4 

F 

- 

'Ceg: 

F 

= 

E+Ce’GI 

F 

= 

e+ce'g:+i 

5 

F 

= 

•cg: 

F 

= 

ce+g3+ce'g: 

F 

= 

CE+G+E'G3+1 

6 

-F 


He *G+' EG3 

F 

= 

E-G-1 

F 

= 

e-g 

7 

F 

= 

CE’G: 

F 

= 

ce'e:-! 

F 

- 

ce'g: 

8 

F 

= 

C‘E+G3 

F 

= 

e+ceg: 

F 

= 

E+CEG]+1 

9 

F 

= 

pe’g+eg: 

F 

= 

E+G 

F 

= 

E+G+1 

A 

> 

F 

= 

G 

F 

= 

CE+'G3+EG 

F 

= 

pe’g+eg:+i 

B 

F 

= 

CEGJ 

F 

= 

CE6>1 

F 

= 

CEG3 

C 

F 

= 

cf+'f: 

F 

= 

e+e 

F 

- 

E+E+1 

D 

F 

= 

CE+'G3 

F 

= 

ce+g:+e 

F 

= 

[E+GD+E+1 

E 

F 

= 

e+g 

F 

= 

:e+'g3+e 

F 

= 

CE+'G3+E+1 

F 

F 


E 

F 


E-1 

F 


E 


- contains only Logical operations. 


Fig. 2.7. 


Complete ALU Instruction Set 
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cumuLators and the above operations C3D. The bus numbers are omitted be- 
cause they can be sourced to either bus. Shift is done before swap. BO, B1, 
B2, and B3 indicate the four bytes of the A register. 

2.2.8 The Index Registers 

In the diagram of the machine structure (Figure 2.3), there are four 
index registers, four index compare registers, and four condition mask re- 
gisters. None of the registers can be sourced for their contents atone. In- 
dex register 0 and its corresponding compare register are 16 bits Long, 
white att the others are onty eight bits Long, The IDX fietd, shown in Fig- 
ure 2.4, is the fietd that controLs the operation of the indices and their 
compare registers. An INx command, where x is one of the index registers, 
witt increment index register x. A DCx witt decrement index register x 
by one, white a CLx witt ctear index register x. CLA witt cLear att regis- 
ters. The Index compare registers (see Figure 2.4) are used to hoLd vatues 
to be compared to the index registers. 

2.2.9 ConditionaL Operations 

The condition mask registers controt the condition to be used. These 
registers do not have a one-to-one correspondence to the index registers. 
Figure 2.9 is a List of the functions used in the current software (a fuLt 
Listing, appears in C33), The Lengths of the registers are shown in Figure 

2.3. 


It is possibLe to test for the conditions in Mask Register 0 by pLacing 
a TN in the CND (CoNDition) coLumn. Figure 2.4 shows the Location of the CND 
coLumn in the coding form. To test for the LogicaL "not" of the condition 
stored in Mask Register 0, an FN is pLaced in the CND coLumn. To test for 
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Source 

Source 

Bus 

A 


Bus 

B 

A field 

B field 





• 

AO ■ 

A1 

B1 

BO 


B3 

B2 

AO 

AIRS 



Illegal 



AO 

A1RZ 



Illegal 



AO 

AISW 



Illegal 



AORS 

A1 



Illegal 



AORS 

AIRS 

LS 

Bl 


US 

B3 

AORS 

A1RZ 

Z 

Bl 


US 

B3 

AORS 

A1SW 

B2 

B1 


US 

B3 

AORZ 

A1 



Illegal 



AORZ 

A1RS 

LS 

Bl 


Z 

B3 

AORZ 

A1RZ 

Z 

Bl 


Z 

B3 

AORZ 

AISW 

B2 

Bl 


z 

B3. 

AOSW 

A1 



Illegal 



AOSW 

AIRS 

LS 

Bl 


BO 

B3 

AOSW 

A1RZ 

Z 

Bl 


BO 

B3 

AOSW 

AISW 

B2 

Bl 


BO 

B3 


Z -one byte of zeros 
LS-sign of Lower two bytes 
US-sign of upper two bytes 


Fig. 2.8 

ALU Source Mnemonics. 


Bit 

0 

1 


Condition Mask Reg 0 Condition Mask Reg 3 


EO 

negative 

Index 

Compare 

regO 

= 

index 

0 

El 

negative 

Index 

Compare 

regO 

4 

index 

0 

FO 

negative 

Index 

Compare 

regl 

•s. 

index 

1 

F1 

negative 

Index 

Compare 

regl 

4 

index 

1 

GO 

negative 

Index 

Compare 

reg2 

- 

index 

2 

G1 

negative 

Index 

Compare 

reg2 

4 

index 

2 

ALUO negative 

Index 

Compare 

reg3 

- 

•index 

3 

ALU1 negative 

Index 

Compare 

reg3 

4 

index 

3 


Fig. 2.9. 

Conditional Mask Functions Implemented 
on Simulator. 
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the condition in Mask Register 3, an AD is placed in the CND column. Furth- 
ermore, the AD must be placed at least two instructions after an increment 
or decrement of the register in question. If the condition tested is true, 
the current instruction is executed. 

The ability to conditionally execute a statement enables a conditional 
program jump. Recall that the basic form for a TC statement is: 

TC $HHHH DSTO DSTI 

If DSTO is the MAR (Memory Address Register), then after execution of the 

next statement, the Flexible Processor will do a conditional jump to the 

value indicated by the hex constant, which can be a program label. 

The following is an example of a conditional jump to hex address 123A: 

TC $0001 NOP CMR3 
TC AD $1234 MAR NOP 

The first statement will set the condition mask, while the second statement 
will jump to memory Location 1234 if IDXO = ICRO. To do an unconditional 
program jump, omit the AD. The following: 

TC NEXT MAR NOP 

will jump to the program Label NEXT. Since the MAR and instruction fetch of 
the Flexible Processor are buffered, it is impossible to do an immediate 
program jump. This adds little complication to the programming, except that 
the step to be executed before the jump is placed after the actual jump 
statement. It is very important, when reading source code for the machine, 
to remember that the order of execution is reversed. 

The Flexible Processor contains two program status words. One can be 
user loaded and is called -PAST. The other contains the current program 



status word and is called NOW. 

r ^ * 

2.2.10 Subroutine Calls, Program. Jumps, and the Stack 
As shown in Figure 2.3, there is a 16-by-12-bit stack called the return 
jump stack. This is a typical buffer which is used; to hold return, addresses 
as well as temporary data. As indicated in Figure 2.4, there is a field 
labeled RJ. This controls the return jump stack. There are three- possi- 
ble commands for the stack. SR (SubRoutine jump) will take the- current 
value of the MAR (which is. pointing to the next statement), increment 
it by one and store the result on the top> of the stack". This will be the. 
return- address. JP (JumP return) takes the current top of stack and 
places it in the MAR’. DF (Delete First item) will delete the top. of 
the stack. The JP does not perform the delete function. Another feature- 
of the SR, JP, and DF is that they all trap out interrupts. 

The MAR is buffered, so all operations that seem to be performed on the 
MAR are actually performed on the buffer. One program cycle is needed to 

j 

* 

dump the buffer into the MAR. This makes the micro-assembly language some- 
what confusing, as the Flexible Processor will execute the statement immedi- 
ately following any modification to the MAR. For simplicity, the examples 
use a NOP following a jump. In actual practice, however, this will be re- 
placed by a statement that is more productive. 

A typical subroutine jump looks like the following: 

(Fields) type RJ $HHHH DSTO DST1 
label TC SR $1234 MAR NOP 

TC NOP NOP NOP 

The above routine will store label+2 on the stack, execute the NOPs, and 
jump to the hexadecimal location 1234. A typical subroutine return looks 
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like the following: 


(Fields) TYPE 

RJ 

SHHHH DSTO 

DSTI 

TC 

JP 

NOP NOP 

NOP 

TC 

DF 

NOP NOP 

NOP 

This will take the top of stack. 

place it 

in the MAR, 

and then delete the 


top of stack. Since the CND field is valid on all types of instructions, it 
is possible to do a conditional subroutine jump just by placing the condi- 
tion in the conditional field. The result looks like: 

(Fields) TYPE CND RJ SHHHH DSTO DSTI 

TC AD SR $1234 MAR NOP 

This will store the value of the return address, execute the next 
statement, and continue execution at location 1234. 

2.2.11 The Hardware Multiply 

The only remaining functional unit to be discussed is the hardware mul- 
tiply. As shown in Figure 2.3, the inputs are the P and Q registers, which 
are each 16 bits in length. The result of the multiply is a 16 bit product, 
which can be the result of the multiplication of any two bytes. This is the 
only case where the same byte can be sourced twice. The mnemonics for the 
addressing is L for the lower byte, and U for the upper byte. Thus, to 

multiply the lower byte of the P register by the upper byte of the Q regis- 
ter, a PLQU would be placed in the MULT field. Caution must be taken 
when a multiply is initiated. A multiply takes two machine 
cycles before the result can be sourced. If an interrupt is received 
before the result is ready, the result will be lost. To prevent 
such loss, it is necessary to trap out all interrupts. This is accom- 
plished as follows; whenever a multiply is done, an SR is placed in 
the RJ column of the first statement of the multiply, and a DF is placed 
in the RJ column of the second multiply statement. The net result is to 
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push a return address onto the stack and then pop it off the stack. This 
wiU trap out interrupts as needed. Further caution must be taken in that 
the RJ stack is only 16 units Long, so overflow is possible. 
If overflow occurs, no error will be flagged. The following is a routine 
to square the lower byte of the Q register. 

(Fields) type RJ MULT $HHHH SRCO DSTO SRC1 DSTi 
TC SR QLQL $0057 MAR NOP 

TR DF QLQL MULT FO MULT FI. 

This not only does a multiply, but it also does a program jump and traps in- 
terrupts all at the same time, showing how this machine obtains 
very high processing speeds. (Consider that each program step takes -.125 
micro-seconds.) If more precision is desired, the following algebraic rule 
can be used: 


(a+b)*(c+d)=ac+ad+bc+bd. 

This rule can be modified to the byte level, yielding the 32- bit result in 
under three micro-seconds C7D. 

2.2.12 Bus Registers 

The two registers in Figure 2.3 Labeled BRGO and BRGI are the bus re- 
gisters. Normally these are used for breakpointing. It is possible to use 
these registers for general purpose registers (if no breakpointing is need- 
ed). To write into these registers, BRGO and BRGI are put into the respec- 
tive columns, while to read from these registers, BSRO and BSRi are put into 
their respective columns. 
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2.2.13 Shifting Data 

The SH field of an instruction is shown in Figure 2.4. The OEINC, 
OFINC, and OGINC fields determine what type of shift is to take place Cleft 
or right, circular or not, padded with ones or zeroes or data from the pro- 
gram status word). The P field determines the Precision of the shift. If 
the P field is set to S, all of the registers are treated as separate regis- 
ters; however, if the P field is set to D (Double precision), the E and the 
F registers are tied together as one register for the shift. There are com- 
mands that not only determine the data to be shifted, but they also control 
the conditions under which the shifts are done C33. 

2.2.14 Input/Output to the Flexible Processors 
Input/Output (I/O) is one of the most complicated parts of the entire 
Flexible Processor system. I/O must occur in one of the following forms: 

1. Flexible Processor to host 

2. Flexible Processor to Flexible Processor 

3. Flexible Processor to HOS RAM (shared bulk memory). 

For large amounts of data requiring Flexible Processor to Flexible Processor 
communication, FP to MOS RAM is the most reasonable form of data transfer. 
If the high-speed communication link, as described in 2,1.5, is used, there 
is only a buffer for 16 words of information. This requires very closely 
timed algorithms, as any error would result in the loss of data. Each Flex- 
ible Processor is connected to four 16-bit channels, which are called Direct 
Storage Access (DSA) channels. Each of the channels is connected to four 
banks of 250 nsec HOS RAH. Each bank of HOS RAH is addressed by bank and 
channel. Different banks on various channels may be shared. For example. 


bank 1 on channel 3 may be the same as bank 2 on channel 1. The Flexible 
Processor is capable of choosing a bank and address to which all the chan- 
nels are linked through four S registers (Storage location) and B (Bank) re- 
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gisters. Since the RAM memory is much slower than the clock cycle, the read 
is done in two stages. The, first stage sends the address to the MAR of the 
specified bank. Upon completion of a read, the Flexible Processor will au- 
tomatically increment the MAR of the specified bank by one. Within the next 
four cycles, the data will appear in the Zx register, where x is the channel 
number (see Figure 2.3). The data will remain in the Zx register until the 
next read is initiated. In the event of a "memory bank busy," or "data not 
ready," the Flexible Processor will automatically wait for two machine cy- 
cles, after which it will repeat the process. To do a write, the data is 
sourced directly to the MBR (Memory Buffer Register) of the memory bank 
corresponding to the bank register. (A write is a one stage process.) The 
Flexible Processor is programmed to do I/O through the 10 statement type. 
Figure 2.4 shows the form of the statement. The 10 statement is similar to 

V 

the TR statement in that arithmetic calculations can be done simultaneously 
with I/O. The following statements show how to initialize the S and B regis- 
ters. (The S and B registers are linked together so that they can be Load- 
ed in one statement.) 


10 CND 

IPX RJ 

MULT 

ADO 

SRCO 

SRC1 

10 

CHO 

CHI 

CH2 

CH3 

10 



ZRO 

AO 

a1 

DS 

LS 

LS 

LS 

LS 

10 




FO 

FO 

DS 

LB 

LB 

LB 

LB 

10 

DF 

PLQL 


MULT 

MULT 

DS 

LSB 

LSB 

LSB 

LSB 


The first statement loads all four S registers with 0000. The second 
loads all four B registers with the contents of FO. The third Loads all 
four S and 8 registers with the output of the multiplier. The DS stands for 
DSA I/O. The leading L in the channel column stands for Load. 

After initializing the S and B registers, the read needs to be ini- 
tialized, which is done by placing an R in the channel field of the channel 
to be read. Four cycles later, the data (or a wait) should appear in the 
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Zx register. To do a write, a W is placed in the channel fields into 
which the data is to be written. The data to be sourced is in the source 
fields. 


2.2.15 Interrupts 

With I/O, interrupts are often needed. The Flexible Processor has the 
ability to handle up to 16 different interrupts C2,33. The Flexible Proces- 
sor can interrupt itself, the host and other Flexible Processors. While 
processing an interrupt routine, the Flexible Processor sets a flip-flop in- 
dicating that an interrupt is being processed. This traps out all lower 
priority interrupts. The interrupt flip-flops are reset when the program 
returns to processing the original routine, or until a zero is stored in the 
interrupt register. 


Conclusions 

This has been an introduction to the parts of the Flexible Processor 
and the parts of the instruction set that will be used in the Gaussian max- 
imum likelihood classifier and contextual classification algorithms dis- 
cussed in Chapters 4 and 5. For further documentation, consult the CDC 
Flexible Processor Textbook C3!]. 



- 28 - 


3. THE FLEXIBLE PROCESSOR ARRAY SIMULATOR 
Introduction 

Each Flexible Processor has a complicated microprogrammable internal 
architecture. This was overviewed in Chapter 2. As stated earlier, an ad- 
vantage of this microprogrammable architecture is that it allows parallelism 
at the instruction level. This makes user verification of the correctness of 
Flexible Processor algorithms and accurate mathematical timing analyses of 
these algorithms very difficult. Thus, in' order to debug, verify, and time 
Flexible Processor algorithms, a simulator and micro-assembly language as- 
sembler for an array of Flexible Processors have been developed. The simula- 
tor and assembler run under the UNIX operating system on a PDP^II series 
computer, which has been used successfully to program a maximum likelihood 
classifies, as discussed in Chapter 4, and a contextual classifier, as dis- 
cussed in Chapter 5. The simulator displays the contents of the Flexible 
Processor registers on a terminal screen, in a format demonstrated in Appen- 
dix 1. This chapter describes the organization and operation of the simula- 
tor. 


Organization of the Simulator 

The Flexible Processor system simulator is based on a single FP simula- 
tor developed at Purdue (173. Its capabilities have been extensively expand- 
ed. 

The current version can simulate up to sixteen Flexible Processors, the 
maximum number allowed in an actual system. Further, should any further 
'design changes take place in the actual system, the simulator can be modi- 
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fied to simulate up to forty~eight Flexible Processors. The current maximum 
program Length is 2000 Lines. The simulator occupies approximately 64K 
bytes of main memory. 

The simulator is divided into four programs, all written in C 
t6], a Language much like PL/I or PASCAL. Each of the four programs per- 
forms a different task. "Honh.c" is the system monitor, which interfaces 
the simulator to the user. "EXECh.c" is the simulator, which simulates 
all of the system instructions except the I/O and the shift in- 
structions. "shioh.c" simulates the rest of the instruction set. The fi- 
nal program in the set is "helph.c," which contains a brief help file for 
the user who is stranded in the monitor routine. In addition, helph.c 
contains special routines that make the program consistent with all versions 
of the UNIX operating system. This makes the program portable for use on any 
system that supports UNIX and the C programming Language. In addition, this 
routine contains all the paging algorithims that are used, making the 
routines localized,~e^sing possible debugging problems in the future. 

0pgf*aTion of the Simulator 

The program structure for a single Flexible Processor simulation can be 
represented by the control tree diagram in Figure 3.1. All register files 
are considered indexed registers. The 16-Flexible Processor system is basi- 
cally the same tree structure, but there is one more level in the control 
tree, as shown in Figure 3.2. The structure beneath the command level is 
the same as for the single Flexible Processor case. If the monitor re- 
ceives a it will move one node closer to the root of the control tree 
on any of the branches. 


In the Command Level, there are ten possible commands, which are shown 
in Figure 3.3. If an s is chosen, the simulator will simulate the execution 
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Fig. 3.1. Flexible Processor Simulator Control Tree Diagram. 
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Fig. 3.2. System Flexible Processor Simulator Control Tree. 
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of one program step and will move to the single step node. Figure 3.4 
gives the command set for the single step node. If the m is typed, the 
only valid arguments are a or a register name. The monitor will print 
the old value of the register and ask for a new one if the register named 
is a single register. If the register selected is a register file, the 
monitor will ask for the index. Upon receiving the index, the monitor 
will print the old value and prompt the user for input. Valid commands are 
shown in Figure 3.5. Invalid input will yield a "What?" asking for a 
correct command. 

These are all of the functions supported by the simulator at this time. 

Appendix 2 contains flowcharts outlining the operation of the simula- 
tor. Appendix 3 contains a source Listing of the simulator. As mentioned 
previously, the maximum Likelihood classifier and a contextual classifier 
have been implemented using the simulator. These are discussed in Chapters 
4 and 5. 


Pocumentation 

At the beginning of every major portion of program code, there are com- 
ments describing the program flow and variables. This should facilitate 
understanding of the routine and future simulator modifications, as it 
translates the routine from a computer language into English. 

^‘ 1 . Changes to Increase Speed 

Normally, output to the terminal is done one character at a time. This 
requires the program to generate an interrupt to the operating system for 
each character to be displayed. The operating system then checks several 
flags, adds special characters where needed, awakens the device driver, 
tells the device driver which terminal gets the output, and does the output. 
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s Single step program, 

m Go to memory Level. 

L Load assembled object code, 

t Print the contents of the 

registers after the input 
offset (used for debugging 
simulator) . 

V Save the current register 

values in a file called 
status. 

e XXX Execute XXX program steps, 

stop Exit from monitor routine, 

J Unix ^Execute system command. 

# Hove up one node, 

p Print out all the registers, 

h Print out the help file, 

current node. 

Fig. 3.3. Simulator Commands. 


Single step program. 

Go to memory Level. 

Execute XXX program steps. 

Hove up one node to command level. 

Print out all the registers. 

Print out the help file, followed 
by the name of the current node. 
Display the contents of temporary files. 
Display the contents of large files. 
Display the contents of micro-memory. 

Fig. 3.4. Single Step Commands. 


c XXX Changes the old values to XXX. 

i Increments the index without changing the old value. 

“ Decrements the index without changing the old value. 

# Return to original Level (either the command level 

or the single step Level). 

Fig. 3.5. Hemory Edition Commands 
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The output from a single execution step requires exactly one screen, which 
is 3370 characters. Buffering is done so that the computer handles the in- 
terrupt routine once per screen instead of once per character. The only 
change in the interrupt routine is that instead of displaying one character, 
the computer displays 3370. This reduces the load on the system by 3369 in- 
terrupt routines per screen of output. Host of the time required' for output 
is not due to the physical transfer of data; rather, it is due to the other 
areas of the interrupt routine. The net result is that the simulator output 
is over 3300 times faster with buffering than without. While the different 
command Levels require different size buffers, the average increase in speed 
due to buffering is 4500%. 

The PDP-11 series computer uses 16 address bits; thus the maximum 
amount of data address space is limited to 65,536 bytes. Each simulated 
Flexible Processor memory and registers require approximately 60,000 bytes, 
so a special paging routine was written to' page the simulated Flexible Pro- 
cessor memories and registers in and out of main memory as required. Output 
to disk is done in units of 65,536 bytes instead of units of 1 byte. This 
makes the swapping routine to exchange a part of Flexible Processor memories 
run in 1 second. Without buffering, this routine took 2.5 hours of straight 
transfer time. Originally, this program required the total computing power 
of a PDP-11 /70. Now, this program can run on a PDP-11/45 in a time-shared 
environment. 

In a high Level Language, such as C, PL/I, FORTRAN, or PASCAL, one pro- 
gram step corresponds to many machine steps. To minimize the number of 
machine steps per program step, frequently used variables were placed in the 
registers of the machine. For example, the program step: 


C=C+1 
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requires the computer to Load- the variable C from memory. The machine then 
Loads C into a register, increments the register, and stores C back into its 
original location. Frequently accessed variables are placed in a register, 
so frequent memory fetches are less necessary. This often shortens the num- 
ber of executed steps by three steps. When C is not used, C is stored and 
accessed in the usual manner. Thus, the hardware of the computer was used 
to obtain maximum throughput. 

Flexible Processor Micro-Assembler 

The micro-assembler 171 takes the Flexible Processor micro-assembly 
language and translates it into machine' micro-code, A microprogram must end 
with a # to signal the end of input to the micro-assembler. After the 
micro-assembler is invoked, it prompts the user for the input file. When it 
is finished, it will move the assembled output to a file called "object" 
which can then be Loaded into the simulator via the load command. A source 
listing for the assembler appears in Appendix 4. 

^•Z Conclusions 

The Flexible Processor micro-assembler and simulator are operational 
and have been used. Up to 16 Flexible Processors can be simulated. The 
current versions do not include Flexible Processor-host, inter-Flexible Pro- 
cessor (ring), and Flexible Processor-bulk memory communications. 
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4. FLEXIBLE PROCESSOR SYSTEM IMPLEMENTATIONS OF 
A MAXIMUM LIKELIHOOD CLASSIFICATION ALGORITHM 

A-’-l Introduction 

To demonstrate the use of a FLexibLe Processor system on a task less 
complex than the contextual classifier, consider the analysis of Landsat 
data using a Gaussian maximum Likelihood classifier. Landsat measurements 
are taken from four spectral bands and are received by the FLexibLe Proces- 
sor as a data vector. Based on decision theory akin to that developed in 
the contextual classifier model, the vector is classified by determining the 
probability that it belongs to each information class and assigning it to 
the class for which this probability is maximum. 

The way in which an FLexibLe Processor may be used in implementing a 
Gaussian maximum Likelihood classifier is demonstrated below. The tech- 
niques described are to be extended to the contextual classification algo- 
rithm. 

In Section 4.2, methods for implementing the maximum likelihood clas- 
sifier on an FLexibLe Processor array are presented. The ways in which the 
contextual classifier can be implemented on an Flexible Processor array are 
presented in Chapter 5. 
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_4 Implementation of the Maximum Likelihood 
Classifier on an Flexible Processor Array 

4.2.1 Introduction 

Two methods for implementing the maximum Likelihood classifier on an 
Flexible Processor array are discussed. The first assigns to each Flexible 
Processor a different set of classes, and each Flexible Processor processes 
all pixels for its assigned classes. The second method assigns to each 
Flexible' Processor a different subimage, and each Flexible Processor 
processes the pixels in its subimage for all classes. The basic matrix 
operations are the same for both methods. 

The ability to do a fast matrix multiply is at the heart of efficiently 
implementing the maximum Likelihood classifier. The form for the matrix 
multiplication portion of the discriminant function calculation is; 

(X-U.)^(cT'’)(X-U.), , 

1 1 1 

where X is the data vector, U. is the mean vector for the ith class, and C. 
is the covariance matrix C10D for the ith class. 

4.2.2 Subset of Classes for Each Processor Method 

Consider the use of the Flexible Processor array to perform these clas- 
sifications using the first method. Assume there are m distinct classes and 
the computer contains p Flexible Processors. Each Flexible Processor is as- 
signed to process m/p classes. The large file in each Flexible Processor is 
initialized with the inverse of the covariance matrix and mean vector for 
each class it was assigned. The current data vector is stored in each Flex- 
ible Processor in the temporary file. When a new data vector is loaded into 
an Flexible Processor, it overwrites the previous one. For simplicity, but 
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without the Loss of generality/ in the following assume that m = p. If m is 
greater than p, then in each Flexible Processor instead of applying just one 
inverse covariance matrix to the data set several would be applied. This 
will, of course, increase the execution time by a factor of approximately 
m/p. 

In standard arithmetic, one would first multiply the (X-UJ* and the 

—1 

, creating a new vector. This vector would then be multiplied by (X-U^) 

resulting in a scalar. In our implementation, the order has been somewhat 

t “1 . . . 

altered. CX-UJ is multiplied by a column of , accumulating in a van- 

-1 

able called "sum." After this is done for a column j of , "sum" is multi- 
plied by (X-U.). (the jth element of CX-U.)), accumulating the result in a 
variable called "hold" and re-initializing "sum" to 0 C13. The following is 
a pidgeon ALGOL description of the process: 

HOLD =0; 

FOR J=1 TO N DO 
BEGIN: 

SUM=0; 

FOR 1=1 TO N DO 
BEGIN: 

SUM=SUH+XCI]*CCI,J]; 

END 

H0LD=H0LD+SUH*X[J]; 

END 

where N is the dimension of covariance matrix, XCI3 is the Ith element of 
the input vector, and CQ,J3 is the element in the Ith row and Jth column of 
covariance matrix. At the end of the routine, the value contained in the 
"hold" variable is the desired scalar. This algorithm requires fewer stores 
and fetches than the standard algorithm, so it shortens the run time of the 
process. All pointers are kept in the index register, further simplifying 
the process. Temporary file locations are used for sum and hold, so the 
three general purpose registers can be kept free for the floating point 
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operations. 

One way to perform this algorithm is to have the host send <C^) and 

to Flexible Processor i. The host then sends the current data vector to 

Flexible Processor 0, then 1, etc. When the processor receives the data 
vector, it calculates "hold." After the host gives all Flexible Processors 
the data for pixel (i,j), it waits until Flexible Processor 0 has calculated 
the value for its "hold." The host then retrieves the value of "hold," 
loads Flexible Processor 0 with the data vector for the next pixel, and' adds 
a precomputed constant to calculate the discriminant function. The host ex- 
ecutes this process for all Flexible Processors.. After the last Flexible 
Processor has transmitted the result, the host does a compare and stores the 
class index corresponding to the maximum of the discriminant values computed 
for this pixel. Thus, the compares and adds are done by the host while the' 

Flexible Processors are computing the "hold"s for the next pixel, minimizing 

delay. 

This maximum likelihood' classifier implementation has, been programmed 
on a simulator for a Flexible Processor array at the Laboratory for Applica- 
tions of Remote Sens,ing., The simulator displays the contents of the main, re- 
gisters and provides a variety of tools for debugging' Flexible Processor mi- 
crocode, as is discussed in Chapter 3. 

Allowing 40 Flexible Processor machine cycles for each floating point 
addition and 9 Flexible Processor machine cycLes for each floating point 
multiply, the number of machine cycles is as follows, where j = number of 
pixels and, n = number of measurements (size of data vector): 

setup and clear registers: 9 

Load mean: 2n 

2 

Load covariance matrix: 4n 

Load and normalize data vector; 42jn+j 
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2 

inner loop of algorithm: 56jn 

outer loop of algorithm; 61 jn 

56jn^ + 103jn + 4n^ + 2n + j + 9 

Floating point numbers had an eight-bit exponent and 16-bit mantissa. 
This assumes that m, the number of classes, equals p, the number i.of proces- 
sors. If m is greater than p, the runtime may be approximated by multiply- 
ing by fm/pl. 

Preliminary tests indicate that a single Flexible Processor will per- 
form a maximum likelihood classification faster than a PDP-11/70 with float- 
ing point hardware. Exact comparisons of the Flexible Processor array per- 
formance with other systems are difficult without detailed information about 
factors such as pre- and/or post-processing of the data not included in the 
computation time, data precision used, memory load time, etc. However, to 
give a general idea of the effectiveness of this approach, consider a clas- 
sification of 256-by-256 pixels of Landsat data (n=4) using 16 classes and a 
complete array of 16 Flexible Processors (and a host machine). The total 
processing time is approximately 10.4 sec. ESL states that their array pro- 
cessor gives up to an increase of 25 times over the IBM 370/158. On the 
classification of four channels into eight classes, their time is 6.3 sec. 

4.2.3 Subset of Pixels for Each Processor Method 

An alternative method to perform the pointwise maximum likelihood clas- 
sification of pixels using a Flexible Processor array is based upon having 
each Flexible Processor perform the maximum likelihood classifier for a dif- 
ferent section of the image. Recall, the contextual classifier performs 
computations similar to those used by the maximum likelihood classifier, but 
is complicated by the involvement of "neighboring" pixels. 
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Consider perforitiing a maximum Likelihood classification on an A-by-B 
image with N Flexible Processors. One way to approach the problem is to 
divide the image into N subimages and have each Flexible Processor perform 
the maximum Likelihood classification for all pixels in its subimage. This 
is shown in Figure 4.1. If all subimages have the same number of pixels, 
then the Flexible Processors will be fully utilized and the classification 
of the entire image will take approximately 1/N as much time as it would 
take a single Flexible Processor to perform the entire classification. 
Thus, maximum improvement, i.e., a factor of N, is obtained. 

Consider the case in which each subimage does not contain the same num- 
ber of pixels, which will occur when (A*8)/N is not an integer. This will 
Lead to underutilization of the Flexible Processors, but this underutiliza- 
tion will be negligible as will now be shown. 

One way to approach this situation is as follows. To each of N-1 Flexi- 
ble Processors, assign a subimage of size 

Ra*b)1 

I N I ' 

where Fxl, the ceiling of x, is the smallest integer greater than or equal 
to x. To the remaining Flexible Processor, assign a subimage of size 

(A*B)-(p^^ * (n-D) . 

For example, if A=117, B=196, and N=16, then 

= ri433.25 1 = 1434 

pixels are in each subimage associated with 15 Flexible Processors. The 
remaining pixels, of which there are 
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22,932-(15*1434)=1422 

are associated with one Flexible Processor. This sixteenth Flexible Proces- 
sor will have fewer pixels to classify and thus will finish before the other 
Flexible Processors (assuming that, on the average, the time for the float- 
ing point calculations is approximately the same for all pixels, which im- 
plies some underutilization of the Flexible Processor since it must sit idle 
waiting for the others to finish). Ideally, a factor of N=16 performance im- 
provement over a single Flexible Processor is desired, which, in this case, 
would require all 16 Flexible Processors to each classify 1434 pixels. To 
compute the utilization of the Flexible Processor array, divide the number 
of pixels actually classified by the maximum number that could be classified 
in the same amount of time if all 16 Flexible Processors were fully util- 
ized. Thus, the utilization is: 

22 932 
(16*1434) 

Therefore, a factor of 99+% of N improvement is obtained. 

In general, using the above assignment of pixels to subimages, the 
utilization of the system is 

A * B 

f(A * B)/N1 * N 

The maximum value of the denominator is A+B+N-1 and occurs when A*B = k*N+1, 
where k is an- arbitrary integer. Therefore, 


min((A * B)/( f(A * 8)/Nl * N)) = (A * B)/(A * B + N - 1). 


Based on typical sizes of remotely sensed images and assuming that the max 
limum size of a Flexible Processor array is T6, 
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A * B > 10 *N, 


and 


(A * B)/(A * B + N-1) > 99%. 

Thus, in general, the worst case performance is 99+% of the ideal factor of 
improvement over a single Flexible Processor. 

In Appendix 5, the maximum likelihood classifier programs for this 
Flexible Processor implementation are described. Included are the routines 
for floating points arithmetic, using a 14-bit exponent and a 16-bit mantis- 
sa. The current algorithm, which runs on the simulator described in Chapter 
3, uses 3526 125-nsec steps to process one pixel (four floating-point com- 
ponent data vector) and two classes, including choosing the maximum value. 
Performing a two class maximum likelihood classifier on 400 pixels of actual 
Landsat data (as used in the tests described in C12D), a single Flexible 
Processor averaged 410 microseconds per pixel (including the time to move 
the image data from the bulk memory to the processor). Thus, if 16 Flexible 
processors were used, each with its own bulk memory, an effective processing 

4 

rate of 4 * 10 pixels per second can be obtained. 

^•3. Conclusions 

Two methods of calculating a Gaussian maximum likelihood classifier 
have been discussed. The timings for both algorithms have been discussed. 
The first method presented requires the host to do much data collection, 
while the second does not. It was shown that the second method provides 
high utilization of the Flexible Processors. The actual micro-assembly 
language program for the second method is presented in Appendix 5. 
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In the next Chapter, the way in which a paraUeL processing system such 
as the Flexible Processor array can be used to perform contextual classifi- 
cation is examined. 
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5. FLEXIBLE PROCESSOR IMPLEMENTATION OF 
A CONTEXTUAL CLASSIFICATION ALGORITHM 


^.JL Introduction 

This chapter explores the actual implementation of a contextual clas- 
sifier. Section 5.2 briefly describes the contextual classifier approach. 
Section 5.3 gives serial algorithms for performing it. Section 5.4 presents 
a Flexible Processor program to implement the contextual classification al- 
gorithm with a simple size three neighborhood and an image size such that 
the number of rows is a multiple of the number of Flexible Processors in the 
system. The use of the Flexible Processor system to implement a general 
contextual classifier is explored in Section 5.5. 


5.2 The Contextual Classifier 


The image data to be classified are assumed to be a two-dimensional I- 

by-J array of multivariate pixels. Associated with the pixel at "row i" and 

"column j" is the multivariate measurement n- vector X.. e R*^ and the true 

ij 

class of the pixel e.. e o = >, The measurements have class- 

1 J I c 

conditional densities f(X|o)|^), k = 1,2,...,c, and are assumed to be class- 
conditionally independent. The objective is to classify the pixels in the 


array. 

In order to incorporate contextual information into the classification 
process, when each pixel is to be classified, p-1 of its neighbors are also 
examined. This neighborhood, including the pixel to be classified, will be 
referred to as the p-array. Intuitively, to classify each pixel, the con- 
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te;<tuaL classifier computes the probability of the given observed pixel be-* 
ing in class k by also considering the measurement vectors (values) ob- 
served for the neighbor pixels in the p-array. Specifically,, for each 
pixel, for each class in , a discriminant function g is calculated by sum- 
ming the weighted probabilities of the p-1 neighbor pixels occurring in all 
possible classification states. This is described below mathematically for 
pixel (i,j) being in class The description is followed by an example to 
clarify the notation used. Further details may be found in 110,11,133. 




9 . . . .=w, ^ 
— ij ' ij k 




gP (0 . . ) 
-1) 


where 

X.eX.. is the measurement vector from the jith pixel in the p-array (for pix- 

X. IJ 

el (i,j)) 

0(,e9-. is the class of the «.th pixel in the p-array (for pixel (i,j)> 

f(Xj^|e^) is the class conditional density of Xj^^ given that the i-th pixel is 
from class 

GP(_ 0 .-)=GP(e., 02,...,0 ) is the a priori probability of observing the p- 

* J ^ H 

array 9^,02,. . .,6p. 

Within the p-array, the pixel locations may be numbered in any convenient 
but fixed order. The joint probability distribution qP is referred to as 
the context distribution. 

To clarify the computation of the discriminant function, consider the 
following example. Let the context array (neighborhood) be the p=3 (two 
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nearest neighbors) choice shown in Figure 5,1 with the pixels numbered 
such that the pixel (i,j) to be classified is associated with and and 
pixel Ci,j- 1 ) is associated with X2 and e^, and pixel (i/j+ 1 ) is associated 
with Xj and B^. Assume there are two possible classes: n=-Ca/b>. Then the 
discriminant function for class b is explicitly 




£ 




A-1 


. ) 


=f CX^|b)f (X2!a)f(X3[a)G(b,a,a) 

+f (X^ |b)f (X2|a)f (X3|b)G(b,a,b) 

+f (X^ |b)f (X2|b)f (X3|a)G(b,b,a) 

+f (X<, |b)f (X2|b)f (X3lb)G(b,b,b) 

Note that G^(6..)=6(0^ Q^^B-?) is the relative frequency of occurrence in the 
scene of the specific neighborhood configuration (B^ 02,03). After comput- 
ing the discriminant functions g^ and g^ for pixel (i,j'), pixel Ci,j) is as- 
signed to the class which has the largest discriminant function value. 

Serial Implementation of a^ Contextual Classifier 
Algorithm 1 , shown in Figure 5 . 2 , is one way to implement the contextu- 
al classifier. The particular classifier considered here is a horizontally 
linear p-array of size three. This is shown in Figure 5 . 1 . 

First consider the main loop. Let the original image to be classified 
be an I-by-J array called A. Columns 0 and J- 1 , the two side edges of the 
image, are not classified since these pixels will not have both left and 
right neighbors. The variable "value" will contain the maximum "g" 



Fig. 5.1. Horizontally Linear Neighborhoods. 


Mam Loop 

for 1 = 0 to I-l ^ /* row */ 
begin 


for 3 = 

1 to J-2 

to /• 

column */ 


begin 


/* 

for each pixel 

V 

value 

= -1 

/» 

max "g" */ 


class 

= -1 

/* 

class with max 

-g" 

V 

for k 

= 1 to C 

do /* 

for each class 

V 


begin 

current = g(i»3«k) 
i£ current > value 

then value = current 
class = It 

end 

print Pixel (i, 3 > is classified as 
"class" 

end 

end 


Discriminant Function Calculation 
function g(i,D,k3 

sum ■= 0 

for r = 1 to C to /* all possible 

classes •/ 

begin 

for q = 1 to ^ /* »11 possible 

classes */ 

beq3.n 

sum = compf (i,3-l,r)*compf(i,3,)c) 
*compf <1,3+1, q) •G(r,k,q)+sum 

end 

end 

return (sum) 

Class-Conditional Density Calculation 

function compf{a,b,k) /* for pixel (a,b) , 

class k V 

is pixel measurement 

vector */ 

(x-n^)T I-l (x-s^)]* .5 


X = ACa,b) /* 


expo= — ^log 1 Ij^ 1>»- 
return (e®^^) 


Fig. 5.2. Pidgeon Algol Implementation of the Contextual Classifier — 

With Redundant Calculations. 
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(discriminant function) value calculated for pixel (i,j). This variable may 
be updated as the "g" for each class is calculated. The variable "class" is 
the class associated with "value." In the main loop, "g(i^j/k)" is a call 
to a function to calculate the discriminant function for pixel (i,j) and 
class k. This function is called I*(J-2)frC times, once for each class and 
for each pixel being classified. 

Consider the calculation of g(i,j,k). The class of pixel <i,j) is held 
constant at k, while all other possible class assignments are considers for 
pixels Ci,j“1) and (i,j+1). For each assignment of classes for the pixels 
neighboring pixel (i,j), of which there are C*C, the product of the class- 
conditional densities ("compf") is weighted by "G(r,k,q)," the a priori pro- 
bability of observing the 3-array (to ,aj oj ). The "6" array is predeter- 

• K Q 

mined and prestored. For each call ”g(i,j,k)," the value of "sum" for that 
i,j, and k is calculated. "Sum" is then returned as the value of 
" 9 (ir 3 ^k)." In this straightforward version of the g(i,j,k) routine, the 
function to compute a class-conditional density ("compf") is called C*C 
times each time "g" is called. 

Now consider the "compf" routine. This calculates the class- 
conditional density for pixel (a,b) and class k using the following equa- 
tion: 

-i:Log[2^|+ (x-mj,)**'j:jJ^(x-m^):/2 

f (xlk)=e 

-1 

where the measurement vector for each pixel is of size four, is the in- 
verse covariance matrix for class k (four-by-four matrix), mj^ is the mean 
vector for class k (size four vector), "T" indicates the transpose, and 
"log" is the natural logarithm. For each class, the algorithm uses 
'•091^1^1, ^ and mj^ as precomputed constants. For each call "compf 
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(a,b/k)," the value of for that a,b and k is calculated. "gS^POn 

then returned as the value of "compf (a,b,k)." 

Algorithm 1 executes the "compf" subroutine times. Since 

for each pixel there are C "f's (class-conditional densities)/ this approach 

2 

is inefficient by a factor of C . Algorithm 2 rectifies this problem by 
saving certain "f" values rather than recalculating them. 

Algorithm 2/ shown in Figure 5.3/ implements the contextual classifier 
without the redundant executions of "compf" that occur in Algorithm 1. Let 
X/ Y/ and Z correspond to the pixels (i/ j-D, (i/ j)/ and (i/ j+i)/ respec- 
tively/ where (i/ j) is the pixel to be classified. Each of X/ Y/ and Z is 
a vector of size C. Element t of X will contain the class-conditional den- 
sity ("compf") for the current (i/ j-1) pixel for class t. Y and Z are de- 
fined similarly. By using these three vectors to save the class-conditional 

densities/ each density (for a given pixel and class) is calculated only 
2 

once, instead of C times. 

The main loop of Algorithm 2 is modified to calculate the class- 
conditional densities for the first three columns each time a new row is 
considered (i.e., each time "i" is in'cremented) i Each time a new pixel in a 
given row is to be classified (i.e., just before "j" is incremented), these 
values are updated. In particular, X gets the Y values, Y gets the Z 
values, and new values are calculated to update Z. 

The new discriminant function calculation, g', does hot call the 
subroutine "compf." It gets the values it needs from the X, Y-, and Z ar- 
rays. For each call "g'(k)," the value of "sum" for that k is calculated. 
"Sum" is then returned as the value of "g'(k)." 

The same "compf" routine is used for both Algorithms 1 and 2. Algo- 
rithm 1 calls this routine I*(J-2)*C times, while Algorithm 2 calls it only 
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Ham Loop 

for 1 = 0 ^ I-l do /* row •/ 
begin 

for k = 1 to C do 

begin /• compute f's for 1st 3 

columns */ 

X(k) '•= compf (i,0,k) 

Y{fc) •= compf <i,l,k) 

Z(k) * compf (i,2,k) 

end 

for 3=1 ^ J-2 ^ /* column */ 
begin /* for each pixel •/ 

value = -1 /* max *g" */ 

class = -1 /* class with max ’g“ */ 

for k = 1 to C do 
begin 

current = g' (k) 

If current > value 

then value = current 
class = k 


end 

print Pixel ( 1 , 3 ) is classified as 

"class" 

^ 3 < J-2 

then /* update X,Y,Z arrays */ 
for k = 1 ^ C do 
begin 

X(k) = Y(kl 
Y(k) = Zlk) 

2 (k) = compf (i, 3 + 2 fk) 

end 


end 

end 


Discriminant Function Calculation 
function g' (k) 
sum = 0 

for r = 1 ^ C 'to /* all possible 

classes */ 

begin 

for q “ 1 to C to /• all possible 

classes */ 

begin 

sum = X(r) * Y{k) * Z(q) 

•G(r,k,q) + sum 

end 

end 

return (sura) 


. Pidgeon Algol Implementation of the Contextual Classifier — 
Without Redundant Calculations. 


Fig. 5.3 
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I*CJ-2)*C times. 

There are other techniques that can be employed to make Algorithm 2 
even more efficient that have not' been included in order to avoid obscuring 
the basic program flow. For example, whenever G(r,k,q) is' zero, no multi- 
plications are performed. 

The serial complexity of Algorithm 2 can be' calculated in terms of as- 
signment statements, multiplications, additions, and "compf" calculations. 
To initialize X, Y, and Z for new rows, I*C*3 assignments- and calls to 
"compf" occur. For each pixel, at most C+1 assignments to "value" and 
"class" occur, and C calls to "g'(k)" occur. In addition, for each row, the 
X, Y, and Z vectors are updated J-3 times, each update uaing 3*C assignments 

and C calls to "compf." Each execution of "g’(k)" uses 3*C^ multiplica- 
2 . 2 . 

tions, C additions, and C +1 assignments. Thus, the total complexity for 
Algorithm 2 is: 


I(J (C^+7C+2)-(2C^+14C+4) 
3C^I(J-2) 

C^I(J-2) 

I*J*C 


assignments; 
multiplications; 
additions; and 
"compf" calculations. 


The growth is proportional to I*J*C^ assignments, multiplications, and addi- 
tions, and I*J*C "compf" calculations. 

In this section, a contextual classifier based on a horizontally linear 
neighborhood of size three has been analyzed. Algorithms for contextual 
classifiers using other size and shape neighborhoods would be analogous to 
the algorithms which were presented. 

Algorithms 1 and 2 are written for conventional uniprocessor systems. 
Section 5.4 will examine how to implement Algorithm 2 on a CDC Flexible Pro- 
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cessor system. 


PLexible Processor System Implementation of ^ Simple 
Contextual Classifier 

Consider the implementation of a contextual classifier on an array of N 
Flexible Processors. Assume the neighborhood is horizontally linear as 
shown in Figure 5.1. Divide the A-by-B image into subimages of B/N rows A 
pixels long, as shown in Figure 4.1. Assign each subimage to a different 
Flexible Processor. The entire neighborhood of each pixel is included in 
its subimage. Each Flexible Processor can therefore execute the uniproces- 
sor algorithm presented in Section 4.1 on its own subimage. No interaction 
between Flexible Processors is needed, i.e., each Flexible Processor can 
process its subimage independently. 

The LARS Flexible Processor micro-assembler and simulator are being 
used to gather statistics on the execution time for the- size three horizon- 
tally linear neighborhood contextual classifier. Due to the fact that each 
Flexible Processor is microprogrammable, determining program correctness and 
analyzing execution times is done through the use of the micro-assembler and 
simulator. The current implementation of the contextual classifier uses 780 
microprogram instructions. Execution times per pixel vary because all float- 
ing point operations are done in the software. The classification time asso- 
ciated with the first pixel on a line is different than the classification 
of the rest of the pixels on the same line. This difference is accounted for 
by the three-pixel window. Data must be calculated for each of the pixels in 
the window for the first pixel on the line, while for the rest, data must be 
calculated for only one pixel. The format of the data words of the pixel 
measurement vectors, covariance matrices, etc., consists of a 14-bit two's 
complement exponent and a 17-bit sign-magnitude mantissa. The covariance 
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matrices. Logarithms of the determinants of the covariance' matrices, a 
priori probabilities (G*^), and the X, Y, and Z vectors are aLX stored in the 
Large file. In this way, each Flexible Processor has all the information it 
needs for performing the classification on its subimage. The subimage data 
itself would be stored in a bulk memory. A multiple Flexible Processor con-* 
figuration which associates one bulk memory with each Flexible Processor 
would be best for this application. For testing the Flexible Processor con- 
textual classifier program, the classification of two rows of eight pixel 
measurement vectors (stored in the Large file) using four classes was 
evaluated. The data was actual Landsat data, as was used in E123. Evalua- 
tion of the serial Algorithm 2 from section 5.3 showed that a PDP-11 /7Q re- 
quired ,073* seconds per pixel, wh.ile a single Flexible Processor required 
.075 seconds per pixel. While, at first, it seems that the PDP-11 770 actu- 
ally ran faster, lack of exponent range in the 11/70 floating point hardware 
yielded the incorect results due to rounding error. To overcome this error, 
by normalizing the data, it would require an extra .030 seconds per pixel, 
thus the Flexible Processor is over 25 % faster. The floating point is im- 
plemented in software in the Flexible Processor and uses a 14-bit exponent 
to overcome this problem. These tests are by no means exhaustive. The simu- 
lator must run for many hours just to obtain a result for one pixel. Further 
testing' is in progress. 

Using .1 seconds per pixel as a rough approximation of the PDP process- 
ing time, and .08 seconds per pixel as a rough approximation of a single 
Flexible Processor processing time, a 16 Flexible Processor configuration, 
where each^ processor had its own bulk memory-, would perform contextual clas- 
sifications at a rate of 200 pixels per second as opposed to 10 pixels per 
second for a single PDP-11 770. As mentioned in section 5.3, additional ,pro- 
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gramming techniques that would increase this processing rate can be incor- 
porated (this is currently in progress). Furthermore^ as more experience in 
programming Flexible Processors is obtained, additional improvements in ex- 
ecution time can be expected. 

5_ Contextual Classification on ^ Flexible Processor System 

Consider the implementation of a contextual classifier on an array of 
Flexible Processors as discussed in Section 5.4. Again, assume the neigh- 
borhood is horizontally Linear, as shown in Figure 5.1 and the image is di- 
vided into subimages of B/N rows A pixels Long, as shown in Figure 4.1. If 
B = kN, where k is a integer, there is 100% utilization of the Flexible Pro- 
cessors. Furthermore, there is no overhead for inter-Flexible Processor data 
transfers, since the entire neighborhood of each pixel is included in its 
subimage. Therefore, a factor of N improvement is attained. 

If (A*B)/N is an integer, but B = kN + x, 0<x<N, then Flexible Proces- 
sors can be underutilized in order to keep neighborhoods within subiraages, 
or Flexible Processors can be fully utilized, dividing neighborhoods between 
Flexible Processors, necessitating inter-Flexible Processor data transfers. 
This is shown for a simple example in Figure 5.4, where N=2, A=3, and B=4. 
In Figure 5.4(a) no inter-Flexible Processor transfers are needed, but Flex- 
ible Processor number 1 is not fully utilized. In Figure 5.4(b) both Flexi- 
ble Processors are fully utilized, but due the horizontally Linear neighbor- 
hood, at Least pixel 11 will have to be sent to Flexible Processor number 1 
and at least pixel 12 will have to be sent to Flexible Processor number 0. 

If (A*B)/N is not a integer, some inter-Flexible Processor data 
transfers will be necessary. The number of transfers will be a function of 
the way in which the pixels are assigned to Flexible Processors, as in the 
previous paragraph. To determine the computationally fastest approach when- 
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PPl 

(b) 

Fig. 5.4. 

(a) Underutilization With No Inter FP Communication. 

(b) Inter-FP Data Transfers Required — Full Utilization. 





Fig. 5.5. Vertically Linear Neighborhoods. 
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ever B = kN + 0<x<N, requires knowledge of the actual image size, the ac- 
tual number of Flexible Processors used, the exact time required to execute 
inter-FLexible Processor transfers, and the length of the neighborhood. 

There are two other cases of linear neighborhoods. There are vertical- 
ly linear and diagonally linear, as shown in Figures 5.5 and 5.6. The verti- 
cally Linear case is just a 90® rotation of the horizontally linear case. 
The diagnonally Linear case can be simplified to a 45° rotation of the hor- 
izontally linear case for B = kN by the proper assignment of pixels to Flex- 
ible Processors. Consider an A by B image, A ^B and 8=Nk. Label the di- 
agonals from 0 to A+B-2, as shown in Figure 5.7 for A=4 and B=6. The pixels 
can then be grouped into 8 sets of A pixels as follows; 

1. for each i, 0 ^ i ^ A-1, the pixels in diagonals i and i+B form a group 
of size A, 

2. for each j, A-1 ^ j ^ B-1, the pixels in diagonal j form a group of size 

A. 

Using these rules, each Flexible Processor is assigned k groups. Thus, the 
problem has been reduced to the equivalent of the horizontally Linear case, 
which has already been discussed. The case for B = kN + x, 0<x<N, is even 
more complex than the analogous situation in the horizontally linear case 
and requires a detailed tradeoff analysis based on the actual image size, 
the actual number of Flexible Processors used, the exact time required to 
execute inter-Flexible Processor data transfers, and the length of the 
neighborhood. 

Now consider nonlinear neighborhoods, that is neighborhoods which do 
not fit into one of the Linear classes. For example, all of the neighbor- 
hoods in Figure 5.8 are nonlinear. Figure 5.8(a) and its rotations 


represent the simplest nonlinear neighborhood. It is included in all other 
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Fig. 5.6. Diagonally Linear Neighborhoods. 
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Fig. 5.7. The Diagonals of an A-by-B Image. 
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Fig. 5.8. Nonlinear Neighborhoods. 
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nonlinear neighborhoods. Thus, that neighborhood is called the nonlinear 
kernel neighborhood. 

It can be shown that there is no way to partition an A-by-B image into 
N (not necessarily equal) sections such that a contextual classifier using a 
nonlinear neighborhood can be implemented without involving inter-Flexible 
Processor data transfers. This will be demonstrated for the nonl'^inear ker- 
nel and will thus be true for all nonlinear neighborhoods. Xhere are three 
cases to consider. If there is a horizontal border between two subimages 
stored in different Flexible Processors, then pixels 1 and 2 in 5.8(a) will 
be in different Flexible Processors. If there is a vertical border, pixels 
2 and 3 will be in different Flexible Processors. If there is a diagonal 
border, pixels 1 and 2 will be in different Flexible Processors. The way in 
which to assign Flexible Processors in order to minimize computation time 
will depend upon the particular image size, number of Flexible Processors, 
time required for inter-Flexible Processor communications and the shape and 
size of the neighborhood. These factors will also determine the effective- 
ness of the use of the Flexible Processor array for performing context clas- 
sifications based on a given neighborhood. 

The discussion of performing classifications with the Flexible Proces- 
sor system demonstrates one way in which a multiple-processor system can be 
used to hasten the processing of image data. Future work involves program- 
ming the contextual classifier on the Flexible Processor simulator using 
different size and shape neighborhoods and determining the most efficient 
assignment of pixels to Flexible Processors tor each case examined. The im- 
plementation of the classifier will provide hard data to verify the effec- 
tiveness of the parallel processing approach. 



5.6 ConcLusions 


Algorithms for performing contextual classifications using a size three 
horizontally linear neighborhood was presented. Algorithm 1 was a straight- 
forward approach. Algorithm 2 was- a more efficient approach that avoided 
redundant calculations. The serial computational complexity of Algorithm 2 

3 

was shown to have a growth proportional to I*J*C ' assignments, multiplica- 
tions, and additions, and I*J*C "compf" calculations. The way in which N 
Flexible Processors could perform the classifications N times faster than a 
single Flexible Processor was explained. 

In summary, contextual classifiers have been shown to be powerful re- 
mote sensing' tools in other papers. Their main disadvantage is their compu- 
tational complexity. This Chapter has demonstrated how parallel processing 
can be used to overcome this disadvantage. 
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6. CONCLUSIONS 

The goat of the research in this project has been to implement a con- 
textual classifier on a simulator of an array of CDC Flexible Processors. 
To achieve this end, the simpler Gaussian maximum likelihood classifier was 
first implemented. The maximum likelihood classifier program provided a 
vehicle for gaining experience in coding for a Flexible Processor and debug- 
ging the simulator. Computations performed by the maximum likelihood clas- 
sifier are identical to many of the computations required for the contextual 
classifier, but the overall algorithm is considerably simpler. Thus imple- 
menting the maximum likelihood classifier provided a useful means for begin- 
ning to learn how to program a Flexible Processor system and for debugging 
the simulator. 

i 

The next major step was to implement the contextual classifier on the 
Flexible Processor simulator. As the program currently runs, it is approxi- 
mately 25% faster on a single Flexible Processor system than it is on a 
PDP-11 /70. After extensive testing, using 300 pixels from actual Landsat da- 
ta, the following is a list of average timings for the Flexible Processor 
floating point algorithms used in the contextual classifier program (using a 
14-bit exponent and 16-bit mantissa): 


add: 

9 

microseconds 

subtract : 

9 

microseconds 

multiply: 

2 

microseconds 

divide; 

3 

microseconds 

compare: 

4 

microseconds 
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A flexible Processor, operating on actual Landsat data, can perform a con- 
textual classification using a size three horizontally linear neighborhood 
and four classes at a rate of approximately 75 milliseconds per pixel. 
Thus, a 16 Flexible Processor system would process approximately 215 pixels 
per second. When more experience programming the Flexible Processor has 
been gained, these times can most likely be improved. 

It is important to realize that 60 to 90% of the processing time for 
the contextual classifier is spent in software implementations of floating 
point algorithms. Thus, the addition of floating point hardware (with the 
needed precision) would greatly increase the processing speed of the clas- 
sifications. 

Recall that a Flexible Processor is programmed in micro-assembly 
Language, allowing parallelism at the instruction Level. For example, it is 

i 

possible to increment an index register conditionally, do a program jump, 
multiply two 8-bit integers, and add two 32-bit integers — all simultane- 
ously. This type of operational overlap, in conjunction with the multipro- 
cessing capability of the Flexible Processors, greatly increases the speed 
of the Flexible Processor array. 

The following list summarizes the important architectural features of 
an Flexible Processor: 

User microprogrammable. 

Dual 16-bit internal bus system. 

Able to operate with either 16- or 32-bit words. 

125 nsec clock cycle. 

125 nsec time to add two 32-bit integers. 

250 nsec time to multiply two 8-bit integers. 

Register file (with 60 nsec access time) of over 8,000 16-bit words. 
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In order to debug, verify, and time FLexibLe Processor algorithms, a 
simulator for an array of up to 16 Flexible Processors has been developed. 
This simulator runs under the UNIX operating system on a PDP-11/70 series 
computer. An assembler for the micro-assembly language has also been 

hr 

developed. 

The experience gained through the use of the simulator has made evident 
the following advantages and disadvantages of the system. 

Advantages : 

Multiple processors (up to 16). 

User microprogrammable — parallelism at the instruction level. 
Connection ring for inter-Flexible Processor communications. 

Shared bulk memory units. 

Separate arithmetic logic unit and hardware multiply. 

Disadvantages; 

No floating-point hardware. 

Micro-assembly language — difficult to program. 

Program memory limited to 4k micro-instructions. 

Based on the investigations to date, the advantages of this system ap- 
pear to outweigh the disadvantages. However, alternative approaches, such 
as multimicroprocessor systems, should also be considered to determine the 
most cost-effective approach for implementing the contextual classifier and 
other computationally demanding image processing operations for remote sens- 
ing. 

Through the use of parallel, pipelined, and/or special purpose computer 
systems such as the CDC Flexible Processor system, the types of computations 
required for the contextual classifier and other computationally demanding 
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processes can be impLemented efficiently. This wi.LL not only reduce the 
time required to do contextual classification, 'but will also allow the in- 
vestigation of techniques which may otherwise be considered infeasible. 
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APPENDIX 1 

FLEXIBLE PBOCESSOR SYSTEM SIMULATOR DISPLAYS 


A. Simulator Output Display 


B. Simulator Display of Temporary File 


C. Simulator Display of Large File 



A. SIMULATOR OUTPUT DISPLAY 
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B. SIMULATOR DISPLAY OF TEMPORARY FILE 
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C. SIMULATOR DISPLAY OF LARGE FILE 
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APPENDIX 2 
SIMULATOR FLOWCHARTS 


A. Setting Hp Simulation 

B. Input FP# and Operation to be Performed 


C. Read and Modify Register or Program Memory 
Content 


D. Execute Single Execution Step 

E. Subroutine "Exec" for Executing Single In- 
structions. Subroutine "Skip" for Executing 
Sequence of Instructions. 





A. Setting Up Simulation. 
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8. Input FP# and Operation to be Performed. 





































7 ^ 


A- 7 



Print "Register" 
reg = input 



Set pointer to 
start address of 
appropriate 
memory area and 
offset by index 


Print contents 
of register 


Yes ^ 

Print "Index" 

■ " 

index = input 



Invalid 



Set register 
to input 




index = 



C, Read and Modify Register or Program Memory Content. 
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D. Execute Single Execution Step. 
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E. Subroutine EXEC for Executing Single Instructions. Subroutine SKIP 
for Executing Sequence of Instructions. 
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SIMULATOR LISTING 


/* 

* 


* 

X 

X 

X 

XXXX 

X 

XX 


X 

X 

* 

X 

XX 

X 

X X 

X 

X 

X 


X 

X 

* 

X 

X X 

X 

X 

X 

X 

X 


XXXXXX 

* 

X 

X 

X X 

X 

X 

X 

X 


X 

X 

★ 

X 

X 

XX 

X X 

X 

X 

X 

XX 

X 

X 

★ 

X 

X 

X 

XXXX 

XXXXXX 

XX 

XX 

X 

X 


* 


Set up FILE pointers for use with new Library */ 

FILE *statptr,*inptr,*otptr; 

F ILE *bOpt r,*b1 pt r,*b2pt r,*b3pt r,*buf pt r ; 

/* Global int: carry in; double add parameters; opcode; condition 
* flag; number of processors in use; */ 

int car,par0,par1 ,par2,par3,op,conf Lg^ lim; 


/* b0-b3 eight bit ALU output chunks ( As defined in textbook ) 

* upper sign .extended (ALU); lower sign extended (ALU); 

* source values; destination values; error flag; multiply fl..ag 


int 

int 

/* 

* Command at * 
*/ 


bO,b1,b2,b3,us,ls,s1,sO/d1,dO,erf lg,merf Lg; 
ffff f0177777>; 


level table for use in Lookup routine 
char *comtabG -C 


l«r|vn >f 1 It 

^ IK / L y 


"t","v","b*',"!”,’'stop'V'#'^"p","h",''heLp",'*e'V’r% 
-1 >; 


/* Subcommand lookup table */ 
char *vepbtabG i 

"s", "dtemp“, "dmem", "dlarg", ’‘m", "b", V*, "h", "help’*, 
"r", -1 >; 

/* Character variables for outputing decoded instruction */ 

char *f01,f2C5D,*f3,*f4,*f5,f6G:^*f7a,*f7,*f7b, 

*f8a,*f8,*f8b,*f9a,*f9,*f9b,*fl0,*f11,*f12,*f13, 

*f14,this!I103; 


/* bias- register index input- Hex input form inhex routine */ 
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76 


* 

*/ 


/**/ 


/**/ 


/**/ 


Tables for bus decoding for use in table Lookup 


char *srctabC3 { 
"nop", 
"aOsW, 
"aOrs", 
”aOrz", 
"aO", 
"alsw", 
"airs", 
"alrz", 
"a1". 


"qrsp", 

"arsp", 

"zO", 

"z1", 

"z2", 

"z3", 

"bsrO", 

"bsri", 

"fO", 

"f1", 

"ifOn", 

"ifOu", 

"ifOd", 

"ifOc", 

"ifin", 

"iflu", 

"ifid", 

"if 1c", 

"imrO", 

"imrl", 

"intr", 

"lOad", 

"If On", 

"LfOu", 

"LfOd", 

"LfOa", 

"Had", 

"Ifin", 

"Lflu", 

"Lfid", 

"Ifla", 

"mar", 

"mcrO", 

"mult", 

"tfOn", 

"tfOu", 

"tfOd", 
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>7 


"tfOc", 
"tOra", 
"tOwa", 
"tfin", 
"tflu", 
"tfld", 
"tfic", 
"tira", 
"tlwa", 
-1 >; 

/* 

* Bus 0 integers 

*/ 


int 

srOintCO -C 

00 

/* 

0 */ 

/ 

0100 

/* 

40 */, 

02100 

/* 

440 

*/, 

04100 

/* 

840 

*/, 

06100 

/* 

c40 

*/, 

0200 

/* 

80 */, 

02200 

/* 

480 

*/, 

04200 

/* 

880 

*/ , 

06200 

/* 

c80 

*/, 

0600 

/* 

180 

*/, 

02600 

/* 

580 

*/, 

0500 

/* 

140 

*/, 

02500 

/* 

540 

*/, 

04500 

/* 

940 

*/, 

06500 

/* 

d40 

*/, 

01700 

/* 

3cO 

*/, 

03700 

/* 

7c0 

*/, 

0300 

/* 

cO */, 

02300 

/* 

4c0 

*// 

01000 

/* 

200 

*/, 

03000 

/* 

600 

*/, 

05000 

/* 

aOO 

*/, 

07000 

/* 

eOO 

*/, 

01100 

/* 

240 

*/, 

03100 

/* 

640 

*/, 

05100 

/* 

a40 

*/, 

07100 

/* 

e40 

*/, 

01600 

/* 

380 

*/, 

03600 

/* 

780 

*/, 

07600 

/* 

f80 

*/. 

0 

/* 

ffff */ 

01400 

/* 

300 

*/, 

03400 

/* 

700 

*/, 

05400 

/* 

bOO 

*/, 

07400 

/* 

fOO 

*/, 

06700 

/* 

dcO 

*/, 

01500 

/* 

340 

*// 

03500 

/* 

740 
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05500 

/* 

b40 

*/, 

07500 

/* 

f40 

*/, 

0700 

/* 

IcO 

*/, 

05700 

/* 

bcO 

*/, 

0400 

/* 

100 

*/, 

01200 

/* 

280 

*/, 

03200 

/* 

680 


05200 

/* 

a80 

*/, 

07200 

/* 

e80 

*/, 

02700 

/* 

5cO 


04700 

/* 

9c0 

*/, 

01300 

/* 

2c0 

*/, 

03300 

/* 

6c0 

*/, 

05300 

/* 

acO 

*/, 

07300 

/* 

ecO 

*/, 

02400 

/* 

500 

*/, 

04400 

/* 

900 

*/, 

0500 

/* 

140 

*/, 

02500 

/* 

540 

*/, 

04500 

/* 

940 

*/, 

06500, 

/* 

d40 

*/ 


/* For some registers, they are Loaded by Looking up there 

* index (ie regCindexD) in this tabLe ( See srsw defauLt ) */ 

srcintC] -C 

0,1,2,3,4,5,6,7,8,9, 

10,20,21,22,23,24,25,32,33,19, 

20,21 ,22,23,24,25,26,45,46,44, 

49,31 ,32,33,34,50,36,37,38,39, 

51,57,8329,43,44,45,46,82,83,49,50, 

51,52,100,101,102,103,104,105,-1>; 

/* 

* Bus one integers 



int 

sr1intC3 -C 

00 


/* 0 */, 

01 


/* 1 */, 

021 


/* 11 */, 

041 


/* 21 */, 

061 


/* 31 */, 

02 


/* 2 */, 

022 


/* 12 */, 

042 


/* 22 */, 

062 


/* 32 */, 

06 


/* 6 */, 

026 


/* 16 */, 

05 


/* 5 */, 

025 


/* 15 */, 

045 


/* 25 */, 

065 


/* 35 */, 

017 


/* f */, 

037 


/* If */, 



7f 
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03' 

/*- 3, *■/', 


023 

/* 13 */, 


010 

/* 8 */, 


030 

/* 18 */, 


050 

/* 28, */, 


070 

/* 38 */, 


Oil 

/* 9 


031 

/* 19 */,. 


05,1 

/* 29 */, 


071 

/* 39 */, 


016 

/* e 


036 

/* 1e */, 


076 

/* 3e */> 


067 

/* 37' */, 


O'lA. 

/* c */, 


034 

/* 1c */, 


054 

/*• 2c */,, 


074 

/* 3c */’, 


0 

/* ff'ff */, 


0,15 

/* d */, 


035 

/* Id */, 


055 

/* 2d */, 


075 

/* 3'd */, 


0 

/* ffff */, 


057 

/* 2f */, 


04 

/* 4 */, 


012 

/* a *// 


032 

/* 1a */> 


052' 

/* 2a 


072' 

/* 3a */> 


027 

/* 17 */, 


047 

/* 27 */, 


013 

/'* b */, 


033 

/* tb */> 


053’ 

/■* 2b */', 


073 

/* 3b */, 


024 

/* 14 */, 


044 

/* E4 */, 


05 

/'* 5 */, 


025 

/* 15 */', 


045 

/* 25 */,. 


065 

/* 35 */,-1; 

/* 



★ 

Destination 

codes bus 0 

*/ 




char *dDtabC3 -C 
"nop", 
"brgO", 
"eO", 
"eOfO"’, 
"eOg1"; 
"efOg",, 
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/* 

* 

*/ 


/**/ 


"fOgl", 

•'imrO’V 

••imrl", 

"intr", 

"LfOn", 

"LfOu", 

"LfOd", 

"LfOa", 

’•LOad", 

"mar", 

"marc", 

"mmiO", 

"mmil", 

"mmi2", 

"P", 

"peO", 

"peOg", 

"pefO", 

"pefg", 

"pfO", 

"pfOg", 

"pgl", 

"tfOn", 

"tfOu", 

"tfOd", 

"tfOc", 

"tOra", 

"tOwa", 

"tOba", 

"ifOa", 

-1 >; 

Referance table for bus 0 destinations 

int dbOintC!! { 

0,24,30,3,4,5,32,7,35,45, 
46,44,12,13,14,15,49,51,52,54, 
55,56,64,23,24,25,26,27,28,29, 
30,31,32,33,82,83,36,47,-1 >; 


int 

dOinta 

•C 

00 

/* 

0 */ 


0400 

/* 

100 

*/, 

04200 

/* 

880 

*/, 

024200 

/* 

2880 

*/, 

014200 

/* 

1880 


034200 

/* 

3880 

*/, 

020200 

/* 

2080 

*/, 

030200 

/* 

3080 

*/, 

010200 

/* 

1080 

*/, 
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/* 

* 

*/ 


.023200 

/* 

2680 


027200 

/* 

,2e80 


■037200 

/* 

3e80 

*/, 

03000 

/* 

600 ^ 

*/, 

.07000 

/* 

eOO 

*/, 

013000 

/* 

1600 

*/, 

017000 

/* 

leOO 

*/, 

027000 

/* 

2e00 


035600 

/* 

3b80 

*/, 

03400 

/* 

700 • 


021600 

/* 

2380 


025600 

/* 

2b80 

*/, 

031600 

/* 

3380 


01000 

/* 

200 ^ 


.05000 

/* 

aOO ^ 

*/, 

015000 

/* 

laOO 


025000 

/* 

2a00 

*/, 

035000 

/* 

3a00 

*/, 

021000 

/* 

2200 

*/, 

031000 

/* 

3200 

*/, 

011000 

/* 

1200 

*/, 

02400 

/* 

500 */, 

06400 

/* 

dOO */, 

012400 

/* 

1500 

*/, 

.016400 

/* 

IdOO 

*/, 

026400 

/* 

2d00 

*/, 

032400 

/* 

3500 

*/, 

036400 

/* 

3d00 

*/, 

026000 

/* 

2c00 

*/, 


Bus one destination codes 

char *d1tabC!l -C 
"nop", 
"arsp", 
"brg1", 
"cmrO", 
"cmr1 ", 
"cmr2", 
"ctnr3", 
"el", 
"elfl", 
"ef1g", 
"elgO", 
"f1", 
"fIgO", 
"gO", 
"icrO", 
"icr1", 
"icr2", 
"icr3", 
"idxO", 


>; 
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/* 

*/ 


/**/ 


"idxl", 

"idxZ’V 

"idx3", 

"ifla", 

"Lfin", 

"Lflu", 

"Lfid", 

"Lfla", 

"Llad", 

"mcrO", 

"mcrVV 

"mcrZ", 

"mcr3", 

•’tnmO", 

"mmOl", 

"mm2", 

''tnin02", 

"mm12", 

"mtna"/ 

"q"/ 

"qefi", 

"qefg", 

"qel", 

"qeig", 

"qfr, 

"qf1g", 

"qgO", 

"tfid", 

"tfic", 

"tira", 

"tlwa", 

"tlba", 

-1 >; 

Bus 1 register code table 


int dblintn -C 

0,1,25,26,27,28,29,31,8,9, 
10,33,12,34,40,41,42,43,36,37, 
38,39,48,23,24,25,26,50,57,58, 
59,60,32,33,34,35,36,37,38,65, 
40,41 ,42,43,44,45,46,47,48,49, 
50,100,101,53,-1 >; 


00 

0166 

02 

015 

035 


dlintc: { 
/* 0 */, 
/* 76 */, 
/* 2 */, 
/* d */, 
/* Id */, 
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055 

/*• 2d *"/, 

075 

3d */, 

021 

/* 11 */, 

0121 

/* 51 */, 

0161 

/* 71' * 1 , 

061 

/* 31 */, 

0101 

/* 41 *!, 

0141 

1 * 61 */ / 

041' 

/* 21' */, 

0117 

/* 4f */, 

0137 

/* 5f */, 

0157 

/* 6f */, 

017/ 

/* 7f */, 

017 

/* f */, 

037 

/* If */, 

057 

/* 2f */, 

077 

/* 3f *// 

0130 

/* 58 */, 

014 

/* c */, 

034 

/* 1c */, 

05'4 

/* 2c *// 

074 

/* 3c */, 

0134 

/* 5c */, 

0116 

/* 4e *// 

0136 

/* 5e *// 

0156 

/* 6e */, 

0176 

/* 7e */, 

027 

/* 17 */ / 

047 

/* 27 */ , 

067 

/* 37 */, 

0107 

/* 47 */, 

0127 

/* 57 */, 

0147 

/* 67 */, 

0167 

/* 77 */, 

04 

/* 4 *// 

0124 

/* 54 */, 

0164 

/* 74 */, 

024 

/* 14 */, 

064 

/* 34 */, 

0104 

/* 44 */, 

0144 

/* 64 */, 

044 

/* ’24 */, 

012 

/* a */, 

032 

?* la */, 

052 

/* 2a */, 

072 

/* 3a */, 

0132 

/* 5a */, 

0152 

'/* 6a *// 

0172 

/* 7a */, ”1 


ainout <0>.; 


/**/ 

/**/ 


int 
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5 =/ 


/**/ 


/**/ 


/**/ 


/**/ 


/**/ 


/**/ 


int 

qresin 

•C4>; 

int 

aresin 

■C8>; 

int 

aresout 

■C12>; 

int 

qinout 

il16>; 

int 

aqzin 

iI20>; 

int 

brgO 

•C24>; 

int 

brgl 

-C25>; 

int 

cmrO 

•C26>; 

int 

cmrl 

■C27>; 

int 

ctnr2 

■C28>; 

int 

cmr3 

t29>; 

int 

eO 

i!30>; 

int 

el 

i!31>; 

int 

fO 

<32>; 

int 

f1 

C33>; 

int 

gO 

«4>; 

int 

gi 

05>; 

int 

indxO 

06>; 

int 

indx1 

07>; 

int 

indx2 

■C38>; 

int 

indx3 

■C39>; 

int 

icrO 

■C40>; 

int 

icrl 

i:41>; 

int 

icr2 

■C42>; 

int 

icr3 

■C43>; 

int 

intr 

■C44>; 

int 

imrO 

■C45>; 

int 

itnri 

il46>; 

int 

ifOa 

■C47>; 

int 

ifla 

■C48>; 

int 

LfOa 

U9>; 

int 

Lf1a 

■C50>; 

int 

mar 

-C51>; 

int 

marc 

C5Zy; 

int 

now 

•C53>; 

int 

mmiO 

■C54>; 

int 

mmil 

-C55>; 

int 

mmi2 

■C56>; 

int 

mcrO 

■C57>; 

int 

mcrl 

■C58>; 

int 

mcr2 

■C59>; 

int 

mcr3 

■C60>; 

int 

oupu 

■C61>; 

int 

past 

•C63>; 

int 

P 

■C64>; 

int 

q 

-C65>; 



A-20 


int 

tfO 

<66>; 

int 

tfOar 

C82>; 

int 

tfOaw 

-C83>; 

int 

tf1 

•C84>; 

int 

tflar 

C100>; 

int 

tflaw 

'C101>; 

int 

spare 

i:i02>; 

int 

LfO 

■C106>; 


Z*' kl«W Wltw WIIW«||^WW4 

/* system more closely. 4096 Locations allocated 
int Lfl t4202>; ^ 

/**/ 


'ainout 


int 

Lfl 

t4202>; 

/* 

was 

1131 with Ik 

*/ 


int 

mir 

{8298>; 

/* 

was 

2156 

*/ 


int 

mbr 

•C8301>; 

/* 

was 

2159 


*/ 

int 

resO 

•C8304>; 

/* 

was 

2162 


*/ 

int 

resi 

t8305>; 

/* 

was 

2163 


*/ 

int 

busO 

<8306>; 

/* 

was 

2164 


*/ 

int 

busi 

t8307>; 

/* 

was 

2165 


*/ 

int 

stack 

■C8308>; 

/* 

was 

2166 


*/ 

int 

ovl 

•C8324>; 

/* 

was 

2182 


*/ 

int 

ovh 

•C8325>; 

/* 

was 

2183 


*/ 

int 

shcon 

•C8326>; 

/* 

was 

2184 


*/ 

int 

muLf Lg 

•C8327>; 

/* 

was 

2185 


*/ 

int 

mult 

C8328>; 

/* 

was 

2186 


*/ 

int 

mem 

t8329>; 

/* 

was 

2187 


*/ 

int 

stptr 

t11525>; 

/* 

was 

4983 


*/ 

int 

cych 

■C11526>; 

/* 

was 

4984 


*/ 

int 

cycl 

{11527>; 

/* 

was 

4985 


*i 

int 

cycsh 

-C11528>; 

/* 

was 

4986 


*/ 

int 

s 

■C11532>; 

/* 

was 

4990 


*/ 

int 

b 

■C11536>; 

/* 

was 

4994 


*/ 

int 

cycsL 

■C11540>; 

/* 

was 

4998 


*/ 

char 

*regtabC] -C 






, "qresin", "aresin", "aresout" 

, "qinout”, "aqzin". 

"brgO" 


tfOar' 


int regintCl 
0, 4, 8, 12, 16> 20> 24, 
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25, 

26, 

27, 

28, 

29, 

30, 

31 

32, 

33, 

34, 

35, 

36, 

37, 

38 

39, 

40, 

41, 

42, 

43, 

44, 

45 

46, 

47, 

48, 

49, 

50, 

51, 

52 

53, 

54, 

55, 

56, 

57, 

58, 

59 

60, 

61, 

63, 

64, 

65, 

66, 

82 

83, 

84, 

100, 

, 101 

, 102, 

106 


8298, 8301, 8304, 8305, 8306, 8307, 8308, 

8324, 8325, 8326, 8327, 8328, 8329, 11525, 

11526, 11527, 11528, 11532, 11536, 11540, -1 >; 

/**/ 

struct pegs -Cint dufnC120003; > rC13; 

int printflag; 

/* See incLQ6.h ( Initialized version of this ) for comments */ 

FILE *statptr,*inptr,*otptr; 

FILE *b0pt r,*b1 pt r ,*b2pt r ,*b3pt r ,*buf pt r ; 

int car,par0,par1,par2,par3,op,conf Lg,Lim; 

int b0,b1 ,b2,b3,us, Ls,s1 ,s0,d1 ,d0,erf Lg,merf Lg; 

int ffff ; 

char *comtabD ; 

char *verbtabC!] ; 

int bias, input; 

char *f 01 ,f 2L53,*f3,*f4,*f5,f 6C5:,*f7a,*f7,*f7b, 

*f8a,*f8,*f8b,*f9a,*f9,*f9b,*f10,*f11,*f12,*f13, 

*f14,thismOIl; 


char 

*srctabC3 

int 

srOintCD ; 

int 

srcintC3; 

int 

srIintD ; 

char 

*d0tabD ; 

int 

dbOintD; 

int 

dOintn ; 

char 

*d1tabC3 ; 

int 

regint □; 

char 

*regtabC3; 

int 

dblint □; 

int 

d1intC3 ; 

char 

*regtabC3 

int 

regint 

int 

ainout; 

int 

qresin; 

int 

aresin; 

int 

aresout; 

int 

qinout; 

int 

aqzin; 

int 

brgO; 

int 

brgl ; 


/**/ 
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■ 1**1 


1**1 


1**1 


1**1 


1**1 


1**1 


int 

cmrO; 

int 

'Citirlv 

int 

cmhZ; 

int 

ctnr3-; 

int 

eO; 

int 

e1-; 

int 

fO; 

int 

fi; 

int 

gO; 

int 

g1; 

int 

indxO; 

int 

indx1; 

int 

indx2; 

int 

indx3; 

int 

icrO; 

int 

icrl; 

int 

icrZ; 

int 

i'cr3; 

int 

intr; 

int 

imrO; 

int 

imrl; 

int 

ifOa; 

int 

if1a; 

int 

LfOa; 

int 

Lfla; 

int 

mar; 

int 

marc; 

int 

now; 

int 

mmiO; 

int 

mmil; 

int 

mmiZ; 

int 

me rO; 

int 

mcrl; 

int 

mcr2; 

int 

mcr3; 

int 

oupu; 

int 

past; 

int 

p; 

int 


int 

tfO; 

int 

tfOar; 

int 

tfOaw; 

int 

tfl; 

int 

tflar; 

int 

tf1aw; 

int 

spare; 
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/**/ 


/**/ 


/**/ 


Struct 
int printfLag; 
/* 

* 

* XX 

* . XX XX 

* X XX X 

* XX 

* XX 

* XX 


int 

IfO; 

int 

Ifl; 

int 

mir; 

int 

mbr; 

int 

resO; 

int 

resi; 

int 

busO; 

int 

busi; 

int 

stack; 

int 

ovL; 

int 

ovh; 

int 

shcon; 

int 

mulf Ig 

int 

mult; 

int 

mem; 

int 

stptr; 

int 

cych; 

int 

cycl; 

int 

cycsh; 

int 

s; 

int 

b; 

int 

cycsl; 

regs 

■Cint 


XXXX 

X 

X 

X 

X 

XX 

X 

X 

X 

X 

X X 

X 

X 

X 

X X 

X 

X 

X 

XX 

XXXX 

X 

X 


dumCUOOO:; > rCi:; 


X X xxxx 

XX XX 

XX X 

XXXXXXX X 

X X XX X X 
X X XX xxxx 


* 


* SIMULATOR SYSTEM MONITOR MOD 12 FOR VERSION 7 redone by BWS 03/01/80. 

* CRASHPROOFED on 01/21/80 by BWS. UNNECESSARY FUNCTION CALLS REPLACED WITH 

* GOTOs. THIS ALSO WILL SPEED EXECUTION AND SHORTEN PROGRAM ^LENGTH. 
******************************************************************** 


* 

* This must be compiLed as 'cc monh.c exech._ shioh.__ heLph._ -LS ~0 ' 

* where exec and shio can be .0 or ,c 

* The folLwing includes include the standard I/O library, 

* and two global files. 'inclOh.h' contains general global variables 

* while 'incUh.h' contains global variables pertaining to 

* the processor register variables. Mncllh.h' and 'incl3h.h' 

* are generated by 'glob.c' with regin as input. Therefore 

* to change processor variables, the variable is added or changed 

* in 'regin* and new include files are generated by 'glob'. 

* To change general global variables they must be physically changed 

* in both 'inclOh.h' and 'incl3h,h' 


c:: 



**********************************************************************/ 


SincLude <stdio.h> 

SincLude "incLOh.h" 

SincLude "incLIh.h" 

/**********************************************************************/ 
/* name and stornam are the computer systems name "for the swap area */ 
/* that wiLL hoLd the memory for paging. This will enable the machine*/ 
/* to run with up to 62 FPs. Procnum is the processor number currently*/ 
/* in memory. Pagec is page modified flag 1=0 if changed). This will */ 
/* increase the system responce time if one just wiches to take a peek*/ 
/* at what one of the otherprocessors is doing. */ 

/* the tmpfd and statfd are the file descriptors for the temporary f i I*/ 
/* and the status file. This is done in order that the old 10 package*/ 
/* may be used, and thus, the throughput of thesystem increased. The */ 
/* fd, is not currently being used in this version, because of the */ 
/* flag variable. If the program being loaded into an FP is the same -*/ 
/* as a program loaded into another fp, the output file is not closed */ 
/* , as the close command takes over 12 seconds! !! I ! 1! The change in */ 
/* 10 packages took one evening of time, but the result is that the */ 
/* new verion of mon6.c runs almost as fast as the single fp version. */ 
/*********************************■*************************************/ 


char nameC15Il,stornamC223; 

int procnum, pagec, tmpfd, St atfd,obj fd,f lag; 

/*******★**************************************************************/ 

/* This is to buffer the output. This will give an increase of 17:1 in*/ 

/* The throughput of the system. The fflush will cause the buffer to */ 

/* dump. */ 

/**-k**********:**********-k*ic****-k***i(**-kic***ie*1c********-k-k***-)c******ic***ic/ 

extern _sobufC3; 

mainO -C 

int i; 
char *mktemp(); 

’ setbiif (stdout, _sobuf); 

/**********************************************************************/ 

/* flag is set to one only at the beginning of the program. The flag */ 

/* is set so that the program will not close the first program is loades*/ 
/* for further proof, see lode(reg,f lag) later on. */ 

/**i)r****************ir*********************************************^****/ 

f lag=1; 
procnum=T; 

lim=15; /*the address of processor max*/ 

/**-k**-k***********ic1cicic*****-k-k*ic*ic1rkicic*-k**********ic****ie-k***********ic***/ 

/* this section of code creates the name of the temporary file in /tmp*/ 


ORIGUNfAL PAGiC lb 
OP POOR OUAOTY 



/* /tmp was chosen because it was so much faster than standard disk. */ 
/*******************************************************,***************/ 


stornamC0D='0'; 

strcat (stornam,"/tmp/sbXXXXXX"); 
mktemp(stornam); 

printf ("temporary file used: %sO,stornam); 
if C(tnipfd=creat(stornani,0600))==~1)-C printf ("cannot creat 

exit(O); 

> 


cLose(tmpfd); 


memory^try Latei 


/**********************************************************************/ 
/* the original create opened the temporary file for read only. It was*/ 
/* closed. The following will re-open the temporary file for both */ 

/* read and write, this is why the new i/o Library was not chosen. */ 

/**********************************************************************/ 


if ((tmpfd=open (stornam,2))==-1) -Cprintf ("unable to work with tmp fl"); 

exitd); 

> 


/* Prompt for Status load */ 

printf ("cyber Ikon simulator, hex mace 0); 
printf ("Do you want to Load status? "); 
ff lush(stdout); /* dump print buffer */ 

switch (getcharO) t 
case 'y': 

loadC&rCO:); 
break; 
defauLt : 

printf ("Status not LoadedO); 
break; 

> 

pagec=0; 

goO; 

> 

/* The function 'go' is the first Level of command 

* it will call- itself and reprompt for the processor in 

* case of an error. It is also called by 'pros' on receipt 

* of a '#' to transfer control to this higher Level */ 

goO -C 

printf ("32 Processor number? 

ff Lush(stdout); 

inhexO; 

/********************************************■*■*********★**★***■***★*****/ 
/* if the processor chosen is different than the current processor and*/ 
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/* the some part of the current page in memory has been modified, save*/ 
/* the current version of the page. Else, trash it! */ 

/*********************************************************************it / 

if (input !=procnum && pageci=0) memsetCSrCOIi,procnum); 

pagec=0; 

procnum=input; 

if Cinput<=Lim&&input>=0) -C memLoadC&rC03,procnum); 
pros (&rC03) ; 

> 

else goO; 

> 

pros(reg) 

int *reg; t 

int i,j; 

char comC33,stringC403; 

/* Print prompt and scan for command */ 

LoOp: printfC" — » 

ff LushCstdout); 
scanf <"%s”,com); 

/**************************************************************** / 

/* The following routine desides the action to be taken */ 

/* after typing a command in the first instruction level. */ 

/A***************************************************************/ 

switch (lookup (com, comtab)) <. 

/*A**A***AA***A**A*****A******************A**********************/ 

/* type in an s, for single step. */ 

/ ***************A*AA*A****A***AA*A****AA**A*******A**************/ 

case 0: 
page_used(); 
step(reg); 
break; 

/****************************************************************/ 

/* type in an m for modify memory */ 

/****************************************************************/ 


case 1 : 
modify (reg); 
page_used() ; 
break; 

/***************************A****************A*A*****************/ 

/* type in a I for Load a program. */ 

/****************************************************************/ 
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case 2: 

lode(reg,f Lag); 

pagejLisedO; 

break; 

/************************************************•*★****★******★★*/ 
/* type in a t for print the current values of the registers */ 
/* this is used primarily for monitor debugging. */ 

/********************************************************★*******/ 

case 3: 

pritst(reg); 

break; 

/****************************************************************/ 
/* Save all registers on file 'status' */ 

/************************★***************************************/ 

case 4: 

statf d=creat ("status", 0600); 
oLdseek(statfd,0,0); 
if Cpagec==1) memsetC&rllOD^procnum); 
for (i=0;i<=Lim;i++) 

-C ' <memload(&rnOD,i); 

write(statfd,reg, 24000); 

> 

memload (&rC0!l,procnum); 

close(statfd); 

break; 

/****************************************************************/ 
/* type in a b X for a breakpoint after X steps of execution */ 

/* type in a e X for the program to Execute X steps. */ 

/****************************************************************/ 

case 5: 
case 12; 
skip(reg); 
page_used(); 
break; 

/*************★******************************************★****★**/ 
/* type in an ! to enter a system command. */ 

/****************************************************************/ 

case 6: 

for(i=0; (stringCi3=getchar ()) !='0;i++); 

stringCi+1D='0'; 

system(string); 

printf C"I0); 

break; 
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/,****************************************************■**■**********/ 
//* type in stop to discontinue .processing. */ 

/**************************^t********,********j*********** ********** / 

case 7: 

.unL'ink'(stornam); 

exitO; 

/****************************************************************/ 
M type in .a # to go to the 'next Level up. */ 

/,*********************************,*******************************/ 

case 8': 

goO; 

break; 

. f 

/****************************************************************/ 
/,* recreate the register display on the screen .without */ 

/* executing any of the program steps. This is 'used to */ 

./* ,re-mak.e the .display -after modifying the registers. */ 

/****************************************************************/ 

case 9: 

prireg(reg); 

break; 

/****************************************************************/ 
/* execute help command, this is used to aid the user in */ 
/* problems that should arise Ci-f he gets stuck.) */ 

/****************************************************************/ 

case 10: 
case 11: 
helpcom'O; 
break; 

/****************************************************************/ 
/* This .will run a trace on the program, printing the register */ 
/* values everytime it encounters a subroutine jump, or a return*/ 
/* from a subroutine. */ 

/****************************************************************/ 

case 13: 
printf Lag=1; 
skip(reg); 
pagejusedO; 
break; 

/****************************************************************/ 
/* invalid character entered, go to next upper Level. */ 

/****************************************************************/ 



default : 
printf C"??0); 
break; 

> 

/****************************************************************/ 
/* After the statement has been executed, this part of the */ 

/* program will call itself. */ 

/****************************************************************/ 

goto loOp; 

> 

/****************************************************************/ 
/* This will execute the number of program steps corresponding */ 
/* to the input value, or until it encounters an error. */ 

/****************************************************************/ 


skip(reg) 

int *r'eg; -C 
int j; 
inhexO; 

/****************************************************************/ 

/* enter the number of steps to be executed. */ 

/****************************************************************/ 

for (j=0; j<input; j++) -C 
exec(reg); 
if(erflgl=0) break; 

if (printflag==1S&(Cf4[:0D=='s')| |(f4C03=='j* 
prireg(reg); 

> 

/****************************************************************/ 

/* after the execution, print the registers. */ 

/****************************************★***********************/ 

printf lag=0; 

if(erflg==0) prireg(reg); 


/****************************************************************/ 
/* Single step and print registers. */ 

/****************************************************************/ 

step(reg) 

int *reg; -C 
lolp: erflg=0; 

exec(reg); 
if(erflg==0) 
prireg (reg); 
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/ icic'kic'kic'kif’k'k'kie-kit'k'k'k'k'k'k'k'k'k'kic'k'k'k'kic'k^'kic'k'kiie'kie-k'k'k'kic'k'k'k'k-kic-k'k'k'kicic'kicicir-k-kie-k / 

/* jump back to the monitor routine. */ 

/ icieieieieicicifisieieic-kic'k'k'kicic'ic-k-k'kif'k'k'k'k'k'kir’k’kic-kicic-k'k'kic'kic'ki^ii'k-k'k-k'k'kic'k'k'kicic’k-k'k'kivif / 

if (quest(reg) == 13) goto Lolp; 

> 

/****************■************************************************/ 
/♦Single step subcommand Level, issues prompt and decodes command*/ 
/****************************************************************/ 

quest (reg) 

int *reg; -C 

int get; 

char verbCIOD; 

Lo2p: printf ("step> "); 

ff Lush(stdout); 
scant ("%s", verb); 

/****************************************************************/ 
/* Lookup the action to be taken. */ 

/ icici^^icific-kicicicie’kieicicicic'k'kicic'k'k'k'k'k-k'k'k'k'k-k'kieic-k-k'k'kic'k-k-k'kic'k'k'k-kic-k'k'kif'k'k'k'k'k'kic'kif / 

get=Lookup(verb,verbtab); 
switchCget) t 

/****************************************************************/ 
/* single step — type in an s */ 

/*******-k*******************-k********-k***-k-k-k**-k-k-k-kic**-k***********/ 

case 0: 
page^usedO ; 
return(13); 
break; 

/****************************************************************/ 
/* dtemp will display the temporary registers. */ 

/*-kic***ie-k***i;-k*ic'k-k-k*ie****-k-k*****'itic**if*-k******icirk**irk*-k-kic**1c-k-k-kieic*/ 

case 1: 
distemp(reg); 
page_jjsed (); 
goto lo2p; 
break; 

/***********************************■)(****************************/ 
/* dmem will display the memory registers. */ 

/**1c***irk*icic************-k*******************ie*imrk*********iric**1rk*/ 


case 2: 
dismem(reg')'; 
page usedO; 
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goto Lo2p; 
break; 

/******************************************************★*****'****/ 

/* disLarg will display the Large file. */ 

/ ****************************************************************/ 

case 3: 
disLarg(reg); 
goto Lo2p; 
break; 

/ 'kiticificificicificicicicicici^ieisicicicicieicicie'k'kisic'k'k'k'k'k’k'kic'k-k'k-k'kic'k-k'k'kic'k-kic'k-k'k'k'k'kiciciC'k'k'k / 

/* m will modify the registers */ 

/*-k***************-k***********-k*****irk*****-k******-k******ic*******/ 

case A; 
modify(reg); 
page_usedO; 
goto Lo2p; 
break; 

/****************************************************************/ 

/* execute x steps (b) (e) */ 

/********************************jt*******************************/ 

case 9: 
case 5: 
skipCreg); 
page_usedO; 
goto Lo2p; 
break; 

/****************************************************************/ 

/* h^help execute help file. */ 

/****************************************************************/ 

case 7: 
case 8: 
helpstepO; 
goto Lo2p; 
break; 

/ iciciticiiificicicicicicicicicicie'kicieiciciic'k'k'kicicic'k'k'k'k'kicicif'k'k'kic'kic'k'k-k-k'kicie'k'k'kic'k'k'kic'kic'k'k'k'k / 

/* p = print the registers as they now stand. This will fail */ 
/* before the first step of execution. */ 

/****************************************************************/ 

case 6: 
prireg(reg); 
goto lo2p; 
break; 
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/**************************************************************** / 
/* This wiLL transfer control to the COMMAND Level. */ 

/**************************************************************** / 

case 10: 
break; 

/**********★***************************************:************** / 
/* This will run a trace on the compiled program. Xt will */ 
/* print the registers when it encounters an sr or' a jp, effect*/ 
/* ively enabling one to breakpoint their program. */ 

/ ic-kic'kic'k'kicicificicifi^icicic'k'kic'k'k-k'k'k-k'k'k'k'k'kie^'kic'k'kicieic'k-k'k'k-k'k'kic'kic'k-k'k'k'k'k'kii'k'k'k'k-k'k / 

case 11 : 
erf Lg=0; 
printflag=1; 
skip(reg); 
page_usedO ; 
goto Lo2p;' 

/****************************************************************/ 
/* Default takes monitor to command Level */ 

/****************************************************************/ 

default: 

printf ("Invalid CommandO); 

goto Lo2p; 

break; 

> 

> 

/*********************ir********:fc*********************************/ 

/* Modify subcommand Level, prompts with 'Register?' and */ 

/* responds to any register which is in the file 'regin' */ 

/ ********************************'******************************** / 

modify (reg) 

int *reg; -C 

char reginC143; 

int add; 

printf ("Modify Register? "); 
ff Lush(stdout); 
sc'anf("%s", regin); 

if ((bias=lookup(regin,regtab))==-1) -C 
printf ("Invalid Register "); 
modify(reg); 

> 


/ 'kic'k'k'k^'k'k^k'k'k'k'kic'kic’kic-k-k'kicic'kic'kieicic'k'kic-kie’k-k'k'kiC'kic'k'k^-kic'k'kicii'kic'kic'k'kicicic^iKirkic/ 

/* If it is a valid input register, its index is put in 'bias' */ 
/* and action is taken depending on the register specifically on*/ 



/* whether or not it is dimensioned */ 

/****************************************************************/ 


switch(bias) -C 

/* Registers with an index of 3 */ 

case 0: case 1: case 2: case 3: case 4: case 5: case 53: 

case 72: case 73: case 74: case 75: 
add=indreg (reg,3) ; 
enter (add, reg, 3); 
break; 

/* Registers with an index of 1 (i.e two elements 0 and 1) */ 

case 43; 

add=indreg(reg,1 ); 
enter(add,reg,1 ); 
break; 

/* Registers with an index of 15 */ 

case 47: case 50: case 62: 
add=indreg(reg,15); 
enter(add,reg,15); 
break; 

/* Registers with an index of 4095 ( ie the Large files ) */ 

case 54: case 55; 

add=indreg(reg,4095); 
enter (add, reg, 4095); 
break; 

/* Micro memory */ 
case 68: 

meined(reg); 

break; 

/* Registers with an index of 2 */ 

case 57; case 56: 
add=indreg (reg,2); 
enter (add, reg, 2); 
break; 

/* U - go to command Level */ 
case 76: 

return; 

/* Registers which are not dimensioned */ 
defau It: 

printf(" %s = %x ",regtabCbiasD,regCregintCbiaslD) 
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printfC" = ”); 
inhexO; 

regCreginttbias!]3=input; 

break; 

> 

/* This routine caLLs itself if no exit Cie not a #) */ 

modify (reg); 

> 

/* Indreg and enter are sort of a sub-sub-command Level where you can 

* modify 

* indexed registers; there is no need to return to the register prompt 

* Level to modify other in order addresses */ 

indreg(reg,i) 

int *reg; -C 

int inadd, biad; 

/**/ 

printf ("Index? "); 
ff Lush(stdout); 

if (scanf ("%x",Sinadd)=0) return; 
if((inadd<0)l l(inadd>i)) -C 

printfC" Index must be less than %xO,i); 
inadd=indreg(reg,i); 

> 

return(inadd); 

J 

/* Enter allows you to enter data, increment or decrement the 

* indexed register. If the maximum index is exceeded, the monitor 

* returns to the 'Register?' Level. */ 

enter (add, reg, limit) 

int *reg; -C 

int biad; 

char verbC13; 

for(; (add<Limit+1)&&(add>-1);add++) -C 
bi ad=regint CbiasD+add; 

printfC" %sE %x D = %x ",regtabIIbiasI],add,regCbiad3); 
ff lush(stdout) ; 
scanf ("%s", verb); 

/* Verb contains the action to be taken */ 
switchCverblOD) {. 

/* Increment without changing the contents */ 
case 

case 'i': 
break; 



/* Decrement the same way */ 


case 

case 

case 'd': 

add=add-2; 

break; 

/* Change the register to the number input */ 

case 'c': 
inhexO; 

regCbiadI!=input; 

break; 

/* Got back to 'Reg.' Level */ 
default: 

printfC'no action takenO); 

return; 

break; 

> 

> 

> 

/* Input a hex number, if it is not hex; flag it and prompt for hex */ 
inhex C) -C 

ff Lush(stdout); 
if (scanf ("%x",&input)“0) -C 
printfC'Hex Please 
ff LushCstdout); 

scanf ("%s",this); /* Dummy scan */ 

inhexC); 

> 


/* General Lookup routine returns the index in a table 'chartab' 

* of a character string 'item'. If there is no match, ~1 is returned */ 

Lookup (item, chartab) 

char *item; 

char **chartab; -C 

int i,j,r,k; 
for(i=0;chartabCi j !=-1;i++) -C 

for (j=0; (r=chartabEi3Cjl) == itemCj] S8 r 1= '0';j++); 
if(r == itemCjU) 

return(i); 

> 

return(-l); 
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/* Print routine prints aLL the processor registers 
* a screen fuLL anyway _*/ 

pri reg(reg) 

int *reg; -C 

int j,ad,i; 

printf ("CYCLES: 

printfC’HAR: MIRQ: HIRI: HIR2: 

pntCregCcychU); pnt(regCcycU);printf (" "); 
pnt (regEmar3-2); 

for( j=0;'j<3; j++) pnt CregCmir+jD); 
if (strcnip(f6,"") != 0) 

L 

printf (" %s %sXs%s %s%s%s",f6,f7a^f7,f7b,f8a,f8,f8b); 
printfC" %s%s%s %s %s %s %s %s0>f9a,f9,f9b,f10,f11,f12,f13,f14); 
printf ("ODXO: IDX1: IDX2: IDX3: ICRO: ICR1 : ICR2: ICR3 

y 

printfC El: E0:0); 

for(i=indxO;i<icpQ;i++) pnt (regCiU); 
printfC "); 

forCi=icrO;i<intr;i++) pnt (regCil); 
printfC pnt(regCe13>; pnt(regCe03); 

printf ("OCHRO: CHRl : CHR2: CHR3: 

printfC” Gl: GQ:0); 

for (i=ctnrO; i<=cinr3; i++) pnt (regCiH); 
printfC” 

for Ci=mcr0;i<=mcr3;i++) pnt CregCiD); 
printfC "); pnt CregEglU); pntCregCgOU); 

printf C0BRG1: BRGO: IMRO: IHRI : INTR: MARC:"); 

printfC FI: F0:Q); 

pnt(regCbrg13); pntCregCbrgO]); 
printfC" 

for(i=imrO;i<=imr1;i++) pntCregCi3); 
printfC "); 

pnt(regtintr3); printfC "); pnt(regCrnarc3); 

printfC" 

printf CONOW: PAST: MHTO: MHT1 : HMT2: OUPO: 0UP1:"); 

printfC" P: 0:0); 

pnt CregCnow]); printfC 
pntCregEpast3);printf C "); 
for(i=inmi0;i<=mmi2;i++) pnt CregCiH); 
printfC" "); 

pnt ( reg Eoupu3 ) ; pnt ( r eg Coupu+1 3 ) ; 
printfC 

printfCOlFOA: IF1A: LFOA: LFIA:"); 

printfC" TFOAR: TFOAW: TF1AR: TFlAW: HULT:0); 

for (i=ifOa;i<=Lf1a;i++) f 
pnt(regCi3); printfC "); > 

for Ci=tfOar;i<=tfOaw;i++) -C 
pntCregCi3); printfC "); > 

forCi=tf1ar;i<=tflaw;i++) -C 
pntCregCi3); printfC" "); > 
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pntCregCmuLt]); 
printfC'OAINOUT: 
printf('’0); 
for(i=0;i<=3;i++) C 

for(j=0; j<=5; j++) -C 
ad=j*4+i; 
pnt(reg[lad!]); 
printfC" "); 

> 

putcharC *0); 

> 

> 

/* Called by prireg, prints out a hex number i with leading zeros */ 
pnt ( i ) -C 

if (i<020&Si>=0) putchar('O'); 
if (i<0400&&i>=0) putchar('O'); 
if Ci<010000SSi>=0) putchar('O'); 
printf("%x ",i); 

> 

/* Store the processor registers on 'status' in the format: 

* index regCindex3 regCindex+9D */ 

/* Load the processor registers from the file 'status' in the 

* same format as specified by the store command */ 

loadCreg) 

int *reg; -C 

int i, j,k,ad,dumm; 
printf ("LoadingO); 

if ((statfd=openC"status",0))==-1) -C printfC'NulL statusO); 

return; > 

oldseekCtmptd,0/.0); 
for (i=0; i<=15;i++) 

■C if (read Cstatfd,r 69/24000X24000) 

-C printf ("incompatable statusO); 

printf ("data loaded as far as fp %x"/i); 

ff lush(stdout); 

break; 

> 

write (tmpfd,reg, 24000); 

> 

close(statfd); 

> 

/* Print the registers according to there index (found in regin) 

* ten registers are output including and after the one asked for */ 


pritst(reg/i) 
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int *reg; *C 

int j,k; 

pn'ntf ("Starting reg bias? "); 
ff Lush(stdout) ; 
scant (”%d",&j); 
printlOC j,reg); 

> 

/* Print the ten regs and if 'g' is input print ten more */ 

print10(j,reg ) 

int *reg; -C 

int k; 

char resL53; 
for (k=j;k<=j+9;k++) 
printf("%d %xO,k,regCkIl); 
printfC’?"); 
ff LushCstdout); 
scant ("%s", res); 
i f ( res C03 1 = ’ g ' ) return; 
j=j+10; 

print10(j,reg); 

> 

/* Memory editor, prompts for address then from that computes 
* effective address and calls 'edit* */ 


memed(reg) 

int *reg; <. 

int efad; 

printf ("Address? "); 
inhexO; 

efad=regintCbias3+(3*input); 

edit(reg,efad); 

> 

/* Edit memory in much the same way as the indexed registers */ 

edit(reg,efad) 

int *reg; -C 

char verbCSJ; 

printf("mem< %x >= %x ", input, regLefad++U); 

printf ("%x ",regCefadf+3); 

printf ("%x", reg Cefad++3); 

ff lush(stdout); 

scant ("%s"/.verb); 

/* Switch on input command */ 


switch(verbC03) -C 



/* Increment, don't change the value */ 

case '1': 

case 

break; 

/* Decrement the same way */ 

case 

case 

efad=efad-6; 

break; 

/* Change aLL three Locations, keeps expecting input in hex 

case 'c‘: 

efad=efad“3; 

inhexO; 

reg Cef ad++3=i nput ; 
inhexO; 

reg Cef ad++3= i nput ; 
inhexO; 

regCef ad++3= i nput ; 
break; 

/* Change memory address */ 

case 'a': 
inhexO; 

efad=regintCbias3+(3*input); 

break; 

/**/ 

default: 

return; 

> 

/* Re-compute effective address, check for end of memory */ 

input=(efad-regintCbias3)/3; 
if (<input<0) 1 1 (input>2255)) return; 
edit (reg, efad); 

> 

/* Display temporary files in readable format */ 

distemp(reg) 

int *reg; -C 

int i; 

printfC'OOQO"); 

for(i=0;i<16;i++) -C 

printf ("tempC%x3 = "^iJ; 

pnt(regCtf1+i]); pnt (regCtfO+i3); 
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putcharCO); 

> 


/* Display memory in readable format, keeps asking for more as Long 
* as a valid starting address is input */ 

dismem(reg) 

int *reg; -C 

int add; 

int i/j,k; 

printf ("Starting? "); 
ff Lush(stdout); 

if (scanf ("%x",&i)==0) {ff lush(stdout),scanf ("%s",this); return; 
add=i*3; 

for(k=0;k<23;k++) -C 

printf ("mem<%x> = "/i); 

for(j=0; j<3; j++> { 

pnt ( reg Cmem+addD ) ; 
add++; 

> 

putcharCO); 

i++; 

if(i>255) break; 

> 

dismem(reg); 


/* Display the Large files, keep displaying a page at a time until 
* an invalid address is input */ 

disLargCreg) 

int *reg; -C 

int i>j>k; 

printf ("Starting? "); 
ff Lush(stdout); 

if (scanf ("%x",&i)==0) {ff Lush(stdout);scanf ("%s",this) ; return; 
for(k=0;k<23;k++) { 

printf ("If L%xD = ",i); 

for(j=0; j<4;j++) { 

pnt(regClfO+i3); pnt(regCLf1+iIl); printf(" "); 
i++.; 

if(i>4095) break; 

> 

putcharCO); 
if(i>4095) break; 

> 

dislarg(reg); 

> 

/* This routine will load a pasl formatted object file into memory */ 
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/* Since the close command takes so Long, this checks to see if the */ 

/* previously loaded file is different from the requested file. If it */ 

/* is, the previously Loaded file is closed and the new file is */ 

/* opened. If it is the same, no files are closed or opened, saving 12*/ 

/* seconds of system time. In any event, this program must be */ 

/* optimized. 

/**********************************************************************/ 

Lode(reg,f lag) 

int *reg,flag; -C 

char fileCZOH; 

FILE *srcptr; 

int x1,x2,x3,add,efad; 

char oldfilC20H; 

/* Input file name to be Loaded */ 

ff Lush(stdout); 
strcpyloldfi L,file); 
scanf ("%s",fi Le); 

/**********************************************************************/ 
/* the first time throught, it would be rather difficult to close the */ 
/* previously opened file, as one does not exit. If flag = 1, it is */ 
/* the first time through the file. */ 

/**********************************************************************/ 


if (strcmpCoLdfi L,fi Le) !=0) 

•C if (flag!=1) •CfcLose(srcptr);> 

f Lag=0; 

if (Csrcptr=fopen(f i Le,"r"))=='0') -C 

printf ("Cannot open source fileO); 
return; 

> 

> 

/* Ignore data until encountered */ 


whi le(getcCsrcptr) !=’#’) 

whileCgetc(srcptr) !='0); 


/* Kick new Line first then input formatted data untiL read error 


whi LeCgetc(srcptr) !='0); 
whi LeCfscanf (srcptr,"%x 
efad=mem+(add*3); 
regCefad!l=x1; 
efad++; 
regCefadD=x2; 
efad++; 
regCefadl=x3; 
efad++; 

> 




*/ 



/iiiific'k'k'kic’k-k’k'kieit'kicic’k'k’k'k^'kicic'k'kieieic'k'kic-k'kii^'k'k'kic’k’k'kic'k'k'if'k'kic'k'kicie'k-k-k'k’k'icic-k j 

/* this routine, if called, will store the page in secondary */ 

/* store, this is the page out routine. */ 

/******"*******************************************************/ 

memset (reg,procnum) 

int *reg,procnum; 

/*************************************************************/ 

/* this routine will get the correct starting address for the*/ 

/* beginning of the page. */ 

1'k'k'k'k'k'k'k'k'k-k'k'k'k'k'k'k'k'ii'k'k‘k^-k'k'k'k‘k‘k‘k'k-k-k‘k'k-k-k'k'k-k-k-k'k'k'k-k-k'ki^'k'k-ki^i^'k'k'k'ki^'k'k'k / 

■C IseekCtmpfd, (24000L * (long) procnum),0); 

/*************************************************************/ 

/* this routine does the write into secodary type storage. */ 
/*************************************************************/ 

/* fwrite becomes write(tmpfd,reg, 24000); Cfdes,bufptr,sizofbuf ) */ 

/* write returns -1 on error, or # of bytes written. */ 

if (write(tmpfd,reg, 24000) <= 0) printf ("cannot writeiO); 

> 


/*************************************************************/ 
/* This is the routine that loads the "page" into memory. If*/ 
/* the page does not exits, the routine will automatically */ 
/* zero the memory Locations needed. */ 

/*********************************************ifc*************** / 


memload (reg,procnum) 

register *reg,procnum; 

■C register i; 

Lseek (tmpf d, (24000 l*procnum) ,0) ; 

/* the new read is done as follows: read (tmpf d,reg, 10000) -1 for error 
0 for EOF encountered, else # of bytes read, 
if (read (tmpf d,reg,24000X=0) 
for (i=0;i<1 2000; i++) 

*reg++=0; 


> 


/*************************************************************/ 
/* this is just a way of demonstrating that a page in memory*/ 
/* has been modified. This will speed upthe rate of data */ 
/* tansfer on the machine. */ 

/*************************************************************/ 


page_used() 

-C pagec=1; 

/****************** ******************.********************^****/ 
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/* this function (caLLed nargs) is just to satisfy a fluke in*/ 
/* the UNIX operating system. Because this program is run */ 
/* with separate Instruction and Data space, and UNIX is not */ 
/* quite equipped to handle such things on system calls, this*/ 
/* was added to the code to prevent a dump every time that a */ 
/* system call is executed. */ 
/*************************************************************/ 


nargsO 

•c 

> 

/* 

* 

returnCO); 






* 

XXXXXX 

X X 

XXXXXX 

xxxx 

X X 


xxxx 

* 

X 

X X 

X 

X X 

X X 


X X 

* 

XXXXX 

XX 

XXXXX 

X 

X X 


X 

* 

X 

XX 

X 

X 

XXXXXX 


X 

* 

X 

X X 

X 

X X 

X X 

XX 

X X 

* 

* 

XXXXXX 

X X 

XXXXXX 

XXXX 

X X 

XX 

xxxx 


************************************************************** 

* 

* FIRST PART OF FP EXECUTION ROUTINES 

"k 

* CAUTION: CODE SHOULD BE ADDED TO SHIOH.C TO AVOID OVERFLOW ERRORS 

* OF THE FORM 'format error exec. o' THIS IS 11/70 FOR 

* ' You can't compile a file that big ' 

* 

* 

************************************************************** 

* 

* The include files here are explained in monh.c, the ones 

* used here are of necessity non-initialized 

* This is compiled as 'cc monh._ exech.c shioh._ helph._ -O' 

* or as 'cc runh._ exech.c shioh,_ helph.__ -O' 

* 

*****************************************************************/ 

^include <stdio.h> 

^include "inclZh-h" 

#include "incl3h.h" 

/* 'exec' does some overhead work, zeros the output variables and 

* updates the cycle count then calls the actual execution routines 

* some of which are in the file */ 

exec(reg) 

int *reg; C 
int i; 

if (regCcyclD“ffff ) -CregIIcycl3=0; regCcych3++; > 
else regCcycl3++; 
conf Lg=0; 



fZCi3=0; 


f01=" 

for(i=0; i<=5; 1 ++) 
f3=" 
f4=" 
f5=" 

for(i=0; i<=5;i++) f6Ci'3=0; 

f7=" 

' f8=" 
f9=" 
f7a=""; 
f7b=""; 
f8a=""; 
f8b=""; 
f9a=""; 
f9b="’*; 
f10=" 
f11=" 
f12=" 

f14=" 


/* This simgLates the buffered read.*/ 

for(i=0; i<=2;i++) reglImir+iIl=regLmbr+iIl; 

fetch(reg); 

regCtnarl++; 

conLod(reg); 

’ excondCreg); 
exaLu(reg); 
exmuLtCreg); 

/* The preceeding are executed whether or not the condition is met 

* the rest of the instruction is executed conditionally */ 

if (conf lgl=0) return; 
exindxCreg); 
exrj (reg); 
exmain(reg); 

> 

/* Execute the ALU portion; check the arit/log bit and call 

* exarit or exlog based on that test */ 

exalu(reg) 

int *reg; -C 
op= (reg Emi r+1 Il»1 2) &01 7; 
if ((regnmirD&040000) !=0) exlog(reg)'; 
else exarit(reg); 

> 

/* Arithmetic execution */ 


exaritCreg) 



Int *reg; -C 
f6i;0>‘a'; 
car=0; 

if (regCtnirD>0) < car=1; f6C13='c 
else f6C1D='n'; 

/* Arithmetic */ 

switch(op) < 

/* F=E */ 

case Q: 

f6C2:='0'; 

par0=0;par1=0; 

par2=regCe03; par3=regCe13 

dadd(reg);, 

break; 

/* F=(E+G) */ 

case 1: 

f6C23='1'; 

par0=0; par1=0; 

par2=regCe03 | regCgOl; 

par3=regCe13 I regCg13; 

dadd(reg); 

break; 

/* F=E+ G */ 

case 2: 

f6C2>'2'; 

par0=0; par1=0; 

par2=regCe03 1 ( regCg03); 

par3=regCe13 1 ( regCg13); 

dadd(reg); 

break; 

/* F=ZER0 MINUS ONE */ 

, case 3: 

f6[I23='3'; 

parO=0; par1=0; 

par2=ffff; par3=ffff; 

dadd(reg); 

break; 

/* F=E PLUS EG*/ 

case 4: 
f6m=’4'; 

par0=regCe03; par1==regCe13 
par2=regEe03&( regCg03); 
par3=regCe13&( regCgll); 
dadd(reg); 
break; 

/* F= (E+G) PLUS EG*/ 

case 5: 
f6C23='5'; 

parO=regCeO]&( regCg03); 
par1=regEel3S( regCg13); 
par2=regEe03 1 regCgOH; 
par3=regEelD 1 regCg13; 
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daddCreg); 

break; 

/* F= E MINUS G MINUS ONE */ 

case 6: 
f6C2:='6’; 

par0=regCe03; par1=regCe13; 
par2= regCgO!l+1; 
ifCpar2==0) par3= reg[lg13+1; 
eLse par3= regCg13; 

daddCreg); 

par0=regCres03; par1=regCresl3; 

par2=ffff; par3=ffff; 

car=0; 

daddCreg); 

break; 

/* F= E G MINUS ONE */ 

case 7; 

f6C23= '7'; 

parO=ffff; par1=ffff; 

par2=regCe03SC regllg03); 

par3=regEe13&C regllg13); 

daddCreg); 

break; 

/* F= E PLUS EG */ 

case 8: 
f6II23= '8'; 

par0=regHe03; par1=regCe13; 

par2=regCe03&regCg03; 

pa r3=r eg Cel 3 &reg Cgl 3; 

daddCreg); 

break; 

/* F= E PLUS G */ 

case 9: 
f6C23='9'; 

par0=regCe03; par1=regCe13; 
par2=regCg03; par3=regCg13; 
daddCreg); 
break; 

/* F= CE+ G) PLUS EG */ 

case 10: 
f6C23='a'; 

par2=regCe03&regCg03; 

par3=regCe13SregCg13; 

par0=regCe03 I C regCg03); 

par1=regCe13 I C regCg13); 

daddCreg); 

break; 

/* F= EG MINUS ONE */ 

case 11: 
f6C23=’b'; 

par2=regCe03&regCg03; 

par3=regCe13SregCg13; 



parO=ffff; par1=ffff; 

dadd(reg); 

break; 

/* F= E PLUS E* */ 

case 12: 
f6i:2:='c'; 

par0=regCe03; par1=regCe1D; 

par3=reg[le1!]«1 ; 

if (regCe0]<0) par3++; 

par2=regLe03«1; 

dadd(reg); 

break; 

/* F= CE+G) PLUS E */ 

case 13: 
f6[I2:=’d'; 

parO=regCeO]; par1=regCe1D; 
par2=regneOU | regCg03; 
par3=regCe13 j regCglil; 
dadd(reg); 
break; 

/* F= (E+ G) PLUS E */ 

case 14: 
f6C2:='e'; 

par0=regCe03; par1=regCe1Il; 
par2=regCeOH I ( regCgOl); 
par3=regCe1H I ( regCglU); 
dadd(reg); 
break; 

/* F= E MINUS ONE */ 

case 15: 
f6C2]=’f’ ; 

parO=regCeOD; par1=regCe13; 
par2=ffff; par3=ffff; 
daddCreg); 
break; 


/* Double register add routine simulates a 32 bit integer add 
* parameters are global parO-3 and set by 'exarit' */ 

daddCreg) 

int *reg; -C 

int icar; 

Long one,two,three; 
icar=regCovLII=regCovh3=Q; 

/* 'icar' is the interim carry generated by the three if's to follow */ 
if ( (par2<0)&S(par0<0)) icar=f fff ; 

if ( CparO<0)&S(par2>0)SS(regEresOII>=CparO))) icar=f f f f; 
if C(par2<0)8SCparO>0)SSCregCres03>=Cpar2))) icar=ffff; 
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/* Set processor overflow by the condit.ions described in the manual */ 
one=two=three=Ol; 

one=CClong) par1«16) + C(l'ong) parO S' 0x0000,ff ff L)f; 
two=((long) par3«16) + ((Long) par2 S OxOOOOffff 1); 
three=one+two+(long) car; 
regCresID' = (int) (three »' 16-)’; 
regCresOD = (int) (three S OxOOOOffff L); 
if ((parO>0)'SS(par2>0)8S“(regi:resOKO)) regCovLIi=ff.ff; 
if-((parO<0)SS(par2<0)S8(regCres03>Q)) regCovL3=ff ff 
i f ( (pa r1 >0) 8S (pa r3>0) S8 ( reg Cr esT3<0) ) reg Covh3=f f ff ; 
i f ( (pari <0) SS (par3'<0) 88 ( reg Cresia>0) ) reg Covfi3=f f f f ; 

> 

/* Execute logical operations */ 

exLog (reg)- 

int *reg; -C 
f6E03='l*; 
sw-itch(op) ■£ 

/* F= E */ 

case 0: 
f6[11G='0'; 

regCres0]= regCeOO; 
regtres13= regCeIG; 
break; 

/* F= (E+G) */ 

case 1: 
f6Ci:=’1';. 

regCres03= CregEeQD | regEgOO); 
regEres1]= (regtelO j regEgQ3>; 
break; 

/* F= EG */ 

case 2: 
f6E1>'2'; 

regEresO]= (regEe03)'8regCg03<;' 
regEres13= (regEe13)8regCg1G; 
break-; 

/* F= 0 */ 

case 3: 

f6C13=’3'; 

regEres03=0; 

regCres13=0; 

break; 

/* F= (EG) */ 

case 4: 
f6E1>’4’; 

regCres03= (regteOOSregEgOO); 
regCres1]= (regCe138regEg13); 
break; 

/* F= G */ 

case 5 : 
f6E13='5'; 
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regCres03= regdgOD; 
regCres1D= regCgID; 
break; 

/* F= E XOR G */ 

case 6: 
f6C13='6'; 

regCresO!]= regCe03'’regCg0D; 
regCres1H= regCelD^regCglD; 
break; 

/* F= E G */ 

case 7: 
f6Ci:=’7’; 

regCresOU= regCe03&( regCg03); 
regCres13= reg!Ie13&( regCg13); 
break; 

/* F= E+G */ 

case 8: 
f6C13='8'; 

regCres03= ( regCe03) | regCg03; 
regCres13= ( regCe13) j regCg13; 
break; 

/* F= (E EOR G) */ 

case 9: 
f6C13='9'; 

regCres03= (regCe03''regCg03); 
regCres13= (regLe13''regCg13); 
break; 

/* F= G */ 

case 10: 
f6C13='a'; 
regCres03= regEIg03; 
regCres13= regllg13; 
break; 

/* F= EG */ 

case 11: 
f6C13='b'; 

regCres03= regCe03&regCg03; 
regCres13= regCe13SregCg13; 
break; 

/* F= ONE */ 

case 12: 

f6C13='c'; 

regCres03“1; 

regHres13=0; 

break; 

/* F= E+ G */ 

case 13: 
f6C13='d'; 

regCres03= regCe03|( regCg03); 
regCres13= regCe13|( regCg13); 
break; 


/* F= (E+G) */ 
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case 14: 
f6Cn=’e'; 

reg[IresOI]= (regCeOD 1 regCgO]); 
regCres1D= (regCe13 j regCgO!!); 
break; 

/* F= E */ 

case 15: 
f6Ci:=’f‘; 
regCresOD= regCe05; 
regCres13= regCelH; 
break; 

> 

> 

/* Execute conditionaL field */ 

excond(reg) 

int *reg; -C 
op=(regCmir+2!l»11)&07; 
confLg=0; 
switch(op) -C 

/* Uncond. ALU now cond to shift */ 
case 0: 

f2i:0>'u'; f2C11='n'; 

regCshconD=regtnowD; 

break; 

/* True data now */ 

case 1 : 

f2C0:='t'; f2m='n'; 
regCshconD-regCnowH; 

if (regCcmrOl !=D S&((regCnown&regCcmr03)==P)) conflg“ffff; 

/* was !=*/ maskt(reg); 

break; 

/* False data now */ 

case 2: 

f2C05=’f; f2ni=*n’; 
regCshconH= regCnowH; 

if (regEcmrOU !=0 && .(CregEshconIl&regCcmrDD)==0)) conflg=ffff; 

maskf (reg); 

break; 

/* Address */ 

case 3: 

f2ra='a'; f2Ci:='d’; 

regIshcon!l= regCnow]; 
if .((reg:cmr3:a01) !=0) 

if (regIicr0]==regCindx03) fconf lg=fff f; break;> 
if((regEcmr3:&02)!=0) 

if (regCicrO^ !=regCindx03) •Cconf lg=fff f; break;> 
if ((regCcmr3IlS04) 1=0) 

if (regCicr1!3==regCindx13) fconflg=ffff; break;> 
if((regCcmr3D&010)!=0) 

if (regCicrU !=regC-indx13) fconf lg=ffff; break;> 
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if((regCcmr3:&020)!=0) 

if (regCicr23==regCindx23) -Cconf Lg=ffff; break;> 
if ((regCcmr3]S040) !=0) 

if CregLicr23 !=regCindx2!]) -Cconf Lg=ffff; break;> 
if ((regCcmr33&0100)!=0) 

if (regCicr3D==regCindx3!]) -Cconf Lg=ffff; break;> 
if((regCcmr3:&0200)!=0) 

if CregCicr3il !=regCindx33) -Cconf Lg=ffff; break;> 
if ((regCcmr3I]&0400) i=0) 

if (regCmcrOD l=regCindxOD) -Cconf Lg=ffff; break;> 
if((regCcmr33&01000)l=0) 

if (regCmcrlli i=regCindx13) -Cconf lg=ffff; break;> 
if ((regCcmr3D&0200D) !=0) 

if CregCmcr23==regCindx23) -Cconf Lg=ffff; break;> 
if C(regCcmr3:&04000) 1=0) 

if (regCmcr3Dl=regCindx33) -Cconf Lg=ffff; break;> 
if C(reg[:cnir33&010000) !=0) 

if CregCmarD !=regEmarc3) -Cconf Lg=ffff; break;> 
break; 

/* Uncond. ALU past cond to shift */ 
case 4: 

f2C0:='u';f2C13='p'; 

regCshconD=regCpast3; 

break; 

/* True data past */ 

f2C0:='t‘;f2C13=’p'; 

regCshconII=regCpast]; 

if (reg.CcmrOD !=0 && ((regCshcon3&regCcmr0D)==0)) conflg=ffff; 

maskt(reg); 

break; 

/* False data past */ 
case 6: 

f2C03=>f';f2C13='p'; 
regCshcon3= regCpast3; 

if (regCcmr03 1=0 8S (CregCshcon3&regCcmr03)==0)) confLg=ffff; 

itiaskf (reg); 

break; 

/* Input Output */ 

case 7: 

f2C03='i«; f2C13='o'; 

regCshcon3= regCpast3; 

printfC "I/O conditions not simuLatedO); 

erf Lg=ffff; 

break; 

> 

> 

/* The following two routines are called by ‘excon' to test for 
* conditions called for in *cinr1' */ 


maskt(reg) 
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int *reg; -C 

if (regCcmr1D==0) return; 

if ((regCcmr13&01 ) !=0) -C printf ("Sense not simuLatedO); 
erfLg=ffff; > 

if ((regCcmr13S02) !=0) -C printf ("Sense not simuLatedO); 
erflg-ffff; > 
if {(reg[lcmr13S04) 1=0) 

if (regCicr0]<=regCindx03) -C conflg=ffff; return; > 
if ((regCcmrIlSOlO) 1=0) 

if (regCicr03>=reglIindx03) -C confLg=ffff; return; > 
if ((regilcmr13&020) 1=0) 

if (regCicrO] !=regCindx03) -C conflg=ffff; return; > 
if ((regCcmr13&040) 1=0) 

if (regCicr13<=reglIindxl3) -C confLg=ffff; return; > 
if ( (regCcmr13&0100) 1=0) 

if (regLicr13>=reg[Iindx13) -C confLg=ffff; return; > 
if((regCcmr13&0200)!=0) 

if (regCicr13 l=regCindx13) -C confLg=ffff; return; > 
conf Lg=0; 

> 

/* The following is the same as 'maskf except that all conditions 

* must be false for 'conflg' to be set inhibiting execution */ 

maskf (reg) 

int *reg; T 

if (regCcmrl0==Q) return; 
conf Lg=ffff; 

if ((regCcmrl3&01) 1=0) -C printfC'Sense not simuLatedO); 
erfLg=ffff; > 

if ((regCcmr13&02) 1=0) { printfC'Sense not simuL-atedO); 
erflg=ffff; > 
if ((regCcmrl3&04) 1=0) 

if (regCicr0D<=regCindxO3) t conflg=0; return; > 
if((regCcmr13&OlO)l=0) 

if (regCicr03>=regEIindx03) -C conflg=0; return; > 
if((regCcmr13S020)‘l=0) 

if (regCicrOD l=regCindx03) -C conflg=0; return; > 
if((regCcmr13&040)l=0) 

if (regCicr13<=regCindx13) -C confLg=0; return;, > 
if((reg[lcmr13&0100)l=0) 

if (regCicr13>=regCindx13) t conflg=0; return; > 
if((reg:cmr13&0200)l=0) 

if (regCicr13 !=regllindxl3) t conf-Lg=0; return; > 

> 

/* Conlod checks the conditions of the bus and sets the now register 

* based on its state (and the state of various registers) 

* note that the conditions reflect the beginning of execution */ 

conLod(reg) 

int *reg; -C 
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regCnow3=0; 

if (regHe0D<0) regCnow3=regElnow3 jO! ; 
if (regCe13<0) regCnow3=regCnowD j02; 
if (regCfO!]<0) regCnowIi=regIInowII |04; 
i f ( reg Cf 1 !1<0 ) reg Cnow3=regE!now3 1 01 0; 
i f ( reg CgOIKO ) reg Lnow3=reg CnowII 1 020; 
if ( regCg1!l<0) regLnow!]=reg[Inow3 j 040; 
if (regCres0]<0) regCnow!l=reg[;now!l |0100; 
if (regCresIKO) regHnowD=reglInowD |0200; 
if (regCresOI!==ffff ) regCnoH3=regnnow3 |0400; 
if (CregtresO!]==ffff )&S( regCres1H==ff f f ) ) regCnow]=regCnowH |01000; 
if CregHovLD !=0) regCnow3=regCnow3 j 02000; 
if (regCovhl !=0) reg IInowIi=reg CnowH j 04000; 
f2C2>'n'; 

if ((regtmir+2D&Q2000) !=0) £ f2C23='s‘; regCpast3=regCnow3; > 


/* Execute the multiply, 'mulflg' contains the value of the 

* previous multiply and 'merflg' is set if the current 

* multiply is not the same as the last. Results are not placed 

* in 'mult' until the second consecutive call of the same type */ 


exmult (reg) 

int *reg; -C 
op=(regCmir+2D)S017; 
merf lg=0; 
switch(op) -C 

/**/ 


case 0: 
f5="pLpl"; 

if (regCmulf Ig] !=0) -CregCmulf lg3=0; merflg=ffff; break; > 
regnmult:= CregCp3S0377) * (regCp:&0377); 
break; 

1**1 

case 1; case 4: 
f5=’'plpu"; 

if (regCmulf Igl !=1) -Cregllmulf lgl=1; merflg=ffff; break; > 
regCmult:= ((regilp:»8)&0377) * (regi:p:S0377); 
break; 

/**/ 

case 2: case 8: 
f5="pLql"; 

if (regCmulf lg3 !=2) CregCmulf LgD=2; merflg=ffff; break; > 
reglmult!l= (regCqD&0377) * (regCp!]&0377); 
break; 

I**/ 

case 3: case 12: 
f5="plqu"; 

if (regCmulf lg3 !=3) -CregCmulf lg3=3; merflg=ffff; break; > 
regEmult3= (regCp3S0377) * ((regCq3»8)S0377); 
break; 

1**1 
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case 5: 
f5="pupu"; 

if (regCmuLf lg3 1=5) -CregCmuLf LgD=5; merf Lg=ffff; break; > 

regLmuLtD= (CregCp3»8)80377) * ((regnpd»8)80377); 
break; 

/**/ 

case 6: case 9: 
f5="puql"; 

if (regCmuLf LgD 1=6) -CregGmuLf LgD=6; merf lg=ffff; break; > 
regEmuLt3= (CregGp!l»8)&0377) * (regCqHS0377); 
break; 

1**1 

case 7: case 13: 
f5="puqu"; 

if (regCmuLf Lg3 1=7) -CregCmuLf LgD=7; merfLg=ffff; break; > 

reg!IiiiuLt3= C(regCpD»8)&0377) * C(regCq:»8)S0377); 
break; 

/**/ 


case 10: 


f5="qLqL"; 

if (regCmuLf Lg] 1=10) -CregCmulf LgH=10; merflg=ffff; break; > 
regrmuLt3= (regCqIl&0377) * (regCq3S0577); 
break; 


/**/ 


case 11: case 14: 
f5=”qLqu"; 

if (regGmuLf Lg] 1=11) -CregCmuLf Lg!l=11; merf Lg=ffff; break; > 
regCmuLtD= (CregEq3»8)&0377) * (regCqD 80377); 
break; 

1**1 


case 15: 
f5='*ququ‘'; 

if (regCmuLf LgH 1=15) -CregEmulf LgD=15; merf Lg=ffff; break; > 

regCmuLtI!= ((regCq3»8) 80377) * ((regtq3»8)80377); 
break; 

> 

> 


/* Return jump */ 

exrj (reg) 

int *reg; -C 

op= ( reg Cm i r+2D>>4) 803 ; 
switch(op) -C 
case 0: 
f4="np"; 
break; 

1**1 

case 1: 
f4="jp"; 

regCmar3=regCstack+regCstptr33; 

break; 
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/**/ 

case 2: 
f4="sr"; 

regLstptr3=CregCstptrD+1)S017; 

regCstack+regCstptr33=regCmarD; 

break; 

/**/ 

case 3: 
f4="df"; 

/* reg[lmarll=regllstack+regllstptr3!]; 

regLstptrIl=(regCstptrD-1>&017; 

break; 

> 

> 


/* Index execution */ 


exindx(reg) 

int 


/**/ 


/**/ 


/**/ 


/**/ 


/**/ 


*reg; -C 

op=(regCmir+23»6)S017; 

switch(op) -C 

case 0: 

f3="nop"; 

break; 

case 1: 
f3=''inQ"; 
regCindx03++; 
break; 

case 2: 
f3="in1”; 
regCindx1D++; 
break; 

case 3: 
f3="in2"; 
regCindx2D++; 
break; 

case 4: 
f3="in3"; 
regCindx3D++; 
break; 

case 5: 
f3="dc0"; 
regCindxOD — ; 
break; 


*/ 


/**/ 


case 6: 
f3="dc1"; 
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regCindxlD — ; 
break; 

/**/ 

case 7; 
f3="dc2"; 
regCindxZ] — ; 
break; 

/**/ 

case 8; 
f3=''dc3"; 
regCindx33 — ; 
break; 

/**/ 

case 9: 
f3="cL0"; 
regEIindx03=0; 
break; 

/**/ 

case 10: 
f3=''cL1"; 
regCindx1!l=0; 
break; 

/**/ 

case 11: 
f3="tL2”; 
regCindx2Il=0; 
break; 

/**/ 

case 12: 
f3="cL3"; 
regCindx3]=0; 
break; 

/**/ 

case 13: 
f3="ce0"; 

printfC'End ffs not simuLatedO); 
erf Lg=ffff ; 
break; 

/**/ 

case 14: 
f3=’’ce1"; 

printfC'End ffs not simuLatedO); 
erf Lg=ffff; 
break; 

/**/ 

case 15: 

f3="cLa"; 

regCindx03=0; 

reg[Iindx20=O; 

reg[;indx13=0; 

regCindx33=0; 

break; 
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> 

> 

/* Get the next instruction from memory, put it in mbr */ 

fetch(reg) 

int *reg; -C 

int efad,i; 
efad=(regUmar!l*3)+mem; 

for(i=0;i<=2;i++) -C regCmbr+i3=regCefad+i3; 


/* Execute the main part of the instruction */ 

exmain(reg) 

int *reg; -C 

op= C reg Cmi r+2H»14 ) &03; 
switchCop) -C 
case 0: 
f01="tr"; 
extran(reg); ■ 
break; 

/**/ 

case 1 : 
f01="tc"; 
extrac(reg); 
break; 

/* Shift and io are in the file 'shio.c' */ 

case 2: 
f01="sh"; 
exshift(reg); 
break; 

/**/ 

case 3: 
f01="io"; 
exio(reg); 
break; 

> 

> 

/* Tranfer data from register to register */ 

extran(reg) 

int *reg; -C 

/* Get source and destination code from instruction */ 



s0= ( reg Cmi r+1 : ) &0007700; 
si =( reg Cmi r+1 : ) &0000077; 
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dO=(regCmir3)&003760Q; 
dl -CregCniir3)&000Q177; 

/* Use input codes to get an index returned from a List of valid 
* codes (uses a Lookup routine) */ 

sO=finint(sO,srOint); 
s1=finint(sl,sr1int); 
dO=finint (dO^dOint); 
d1=finint(dl,d1 int); 

/* Set the fieLds for output C aLso a tabLe ) */ 

f7 = srctabCsOl; 
f9 = srctabtslO; 
f8 = dOtabCdO]; 
flO = dltabCdlD; 

/* After source, sO and s1 contain vaLues of the sourced registers */ 
source(reg); 

/* The store routine stores the vaLues in the designated registers */ 

stordO(reg); 
stordl (reg); 

> 

sourceCreg) 

int *reg; -C 

/* Set ALU eight bit chunks and sign extensions for Later referance */ 

bO=reg tresOD &Q377 ; 
b1 = (regt:res0:»8)a0377; 
b2=reg Lres1 "I&D377 ; 
b3=(regCresi:»8)80377; 

Ls=(regCres03»1 6)80377; 
us=CregCres13»16)80377; 

/* Switch here reaLLy onLy to take care of odd ALU sources */ 
switch(sO) -C 

/**/ 

/* DefauLt caLLs another switch */ 
defauLt: 

s0=srsw(s0,reg); 

s1=srsw(s1,reg); 

break; 

/* aOsw */ 

case 1 : 
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ifC(s1==2)l(s1==3)l<s1=4)) C 

printf ("Adder source errorO); 
erf Lg=ffff; 

> 

if C(s1<=8)&(s1>=5)) 

switch(sl) -C 
/* aOsw - alsw */ 

case 5: 

s0=(b2«8)lb1; 
s1 = (bQ«8)jb3; 
break; 

/* aOsw - airs */ 

case 6: 

sO=(Ls«8)lb1; 
s1 = (bQ«8)|b3; 
break; 

/* aOsw - alrz */ 

case 7: 
s0=b1; 

s1=(b0«8)|b3; 

break; 

/* aOsw - a1 */ 

case 8: 

printf ("I L Legal ALU source 0); 

erf Lg=ffff; 

break; 

> 

else -C s0=(b0«8) Ibl; s1=srsw(s1,reg); > 
break; 

/* aOrs */ 

case 2: 

ifC(s1==1)l(s1=3)l(s1=4)) C 

printf ("Adder source errorO); 
erf Lg=ffff; 

> 

if ((sK=8)&(s1>=5)) 

switch(sl) -C 
/* aOrs - alsw */ 

case 5: 

s0=(b2«8)|b1; 
s1 = (us«8) |b3; 
break; 

/* aOrs “ airs */ 

case 6: 

sO=(Ls«8)|b1; 
s1 = (us«8) |b3; 
break; 

/* aOrs - alrz */ 

case 7: 
sO=b1; 

s1 = (us«8) lb3; 
break; 
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/* aOrs - a1 */ 

case 8: 

printf ("iLLegal ALU source .0); 

erf.Lg=ffff; 

break; 

> 

br,eak; 

/:* aOrz */ 

case 3: 

1f.((s1==2),|(s1=1)|(s1==4)) -C 

printf ("Adder source errorO); 
erfLg=ffff; 

> 

jf ((sK=8)&(s1>=5)) 

switch(s1) £ 

/* aOrz - alsw */ 

case 5: 

sO=(b2«8)lb1; 

s1=b3; 

jbreak; 

/* aOrz - airs */ 

ca.se 6; 

s0=as«8)|b1; 

s1^b3; 

break; 

/* aOrz - alrz */ 

case 7: 
sO=b1; 
s1=b3; 
br.eak; 

/* aOrz - a1 */ 

case 8; 

printf ("ILLegal ALU soufc.e 0); 

erfLg=ffff; 

br.eak; 

> 

else -C sO=b1; s1=srsw(s1,reg); > 
break; 

/* aO */ 

case 4: 

ifCCsl— 2)|(s1=3)|(s1=1)) -C 

printf ("Adder source errorO); 
erf Lg=^ffff; 

> 

if((s1<=8)&,(s1>=5)) 
switch(sl) -C 

/* aO “ a1 */ 

case 8: 
s0=regCres03; 
s1=regHres13; 
break; 


/**/ 
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default: 

printf ("Adder source errorO); 

erf Lg=ffff; 

break; 

> 

else "C s0=regCres01; s1=srsw(s1,reg); D- 
break; 

/* alsw */ 

case 5: 

if((s1==8)l(s1==6)|(s1=7)) -C 

printf ("Adder source errorO); 
erf Lg=ffff; 

> 

if((s1<=4)&(s1>=D) 
switch (si ) 

/* alsw - aOsw */ 

case 1: 

s1=(b2«8)jb1; 

sO=(bO«8)lb3; 

break; 

/* alsw •* aOrs */ 

case 2: 

s1=(b2«8) |b1; 
s0=(us«8) |b3; 
break; 

/* alsw - aOr.z */ 

case 3: 

s1= (b2«8)ib1; 
s0= b3; 
break; 

/* a1sw - aO */ 

case 4: 

printf ("iLLegaL ALU source 0); 

erf Lg=ffff; 

break; 

> 

else -C s0=(b2«8) lb3; s1=srsw(s1,reg); > 
break; 

/* a1 rs */ 

case 6: 

if((s1==5)l(s1=7)|(s1=8)) -C 

printf ("Adder source errorO); 
erflg=ffff; 

> 

if((s1<=4)&(s1>=D) 

switch(sl) -C 

/* airs “ aOsw */ 

case 1 : 

s1 = (ls«8)|b1-; 
sO=(bO«8)lb3; 
break; 

/* airs - aOrs */ 
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case 2: 

s1=(Ls«8))b1; 
s0=(us«8) lb3; 
break; 

/* airs - aOrz */ 

case 3: 

sO=(Ls«8)ibl; 

s1=b3; 

break; 

/* airs - aO */ 

case 4: 

printf ("ILLegaL ALU source 0); 

erf Lg=ffff ; 

break; 

> 

break; 

/* alrz */ 

case 7: 

if((s1==5)|(s1==6)|Cs1=8)> { 

printf ("Adder source errorO); 
erf Lg=?ffff; 

> 

if((sK=4)&(s1>=1)) 

switchCsP -C 

/* a1 rz - aOsw */ 

case 1 : 

sO=(bO«8)|b3; 

s1=b1; 

break; 

/* alrz ~ aOrs */ 

case 2: 
s1=b1; 

s0=(us«8) |b3; 
break; 

/* alrz - aOrz */ 

case 3: 
s1=b1; 
s0=*b3; 
break; 

/* alrz “ aO */ 

case 4: 

printf ("iLLegal ALU source 0); 

erf Lg=ffff; 

break; 

> 

else -C s0=b3; s1=srsw(sVreg); > 
break; 

/* a1 */ 

case 8: 

if((s1==5)|(s1==6)!Cs1==7)) -C 

printf ("Adder source errorO); 
erf Lg=ffff; 
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> 

if CCs1<=4)&(s1>=D) 
switchCsl) t 

/* a1 - aO */ 

case 4: 
sO=regCres13; 
s1=regCres03; 
break; 

1**1 

default: 

printf ("Adder source errorO)'; 

erf Lg=ffff ; 

break; 

> 

else -C sO=regCres1!]; s1=srsw(s1,reg); > 
break; 

> 

regCbus03=s0; 
regCbus13=s1; _ 

> 

/* Given that their are no special ALU considerations this 

* is where sources are determined, ss is the return 

* parameter but represent the global sD or si *f 


srsw(ss,reg) 

int *reg; £ 

int ret,f Ig,xx0,xx1,xx2,xx3; 

switch(ss) -C 

/* nop *l 

case 0: 
break; 

I* aOsw */ 

case 1: 

ss=(b0«8)lb1; 

break; 

/* aOrs */ 

case 2: 

ss=(ls«8) |b1; 
break; 

/* aOrz */ 

case 3: 

ss=b1; 

break; 

/* aO */ 

case 4: 

ss=regCres03; 

break; 

/* alsw *f 

case 5: 

ss=Cb2«8)t(b3); 
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break; 

• /* airs */ 

case 6: 

ss=Cus«8) 1 b3; 
break; 

/* alrz */ 

case 7: 

ss=b3; 

break; 

/* a1 */ 

case 8: 

ss=regCresOIl; 

break; 

/* qrsp */ 

case 9: 

printfCA/Q not simuLatedO); 

erf Lg=ffff; 

break; 

/* arsp */ 

case 10: 

printfC"A/Q not simulatedO); 

erfLg=ffff; 

break; 

/* ifox */ 

case 19; case 20: case 21: case 22: case 23: case 24; case 25: case 26: 
printfC Input file not implementedO); 
erf Lg=ffff; 
break; 

/* LfOn */ 

case 31 : 

ss=regCLfO+regClfOa30 ; 
break; 

/* LfOu */ 

case 32: 

ss=reg C I f 0+reg C Lf 0a30 ; 

regCLfOa0=(regj:Lf0a:+1)&07777; /* was 01777 */ 

break; 

/* LfOd */ 

case 33: 

ss=regClf0+regCLf0a]!3 ; 
reg[ILf0a3=(regi;Lf0a3-1 >807777; 
break; 

/* LfOa */ 

case 34: 

ss=regClfO+regtLf OaOO ; 

regC L f 0a:= ( reg C L f 0a0+ regli ndxOO ) 807777; 

break; 

/* Lfin */ 

case 36; 

ss=reg E Lf 1 +reg C Lf 1 aOO ; 
break; 

/* Lflu */ 
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case 37; 

ss=regClf1+regCLf1a]!3; 

regi:if1a:=(regCLf1a:+1)&07777; 

break; 

/* Lf1d */ 

case 38: 

ss=regnLf1+regCLfla3]; 
regCLf1a3=(regIILf1a3-1) 807777; 
break; 

/* Lfla */ 

case 39: 

ss=regClf1+reg[lLf1a33; 
regnLf1a3=(regClf1a3+regi:Tndx01) 807777; 
break; 

/* muLt */ 

case 42: 

if (merf Lg!=0) -C printf ("MuLtipLy source errorO); erfLg=ffff; > 
ss=regCinuLt]; 
break; 

/* tfOn */ 

case 43: 

ss=regCtf0+regCtf0arH3; 

break; 

/* tfOu */ 

case 44: 

ss=regCtf0+regCtf0arH3; 

reg Ctf Oar3= ( reg Ctf Oa r3+1) SOI 7; 

break; 

/* tfOd */ 

case 45: 

ss=reg!Itf0+regCtf0ar3]; 

regCtf0ar3=(regCtf0ar]“1)8017; 

break; 

/* tfOc */ 

case 46; 

ss=regCtf0+regCtf0ar33; 

regCtf0ar3=0; 

break; 

/* tfin */ 

case 49: 

ss=regCtf1+regCtf1ar33; 

break; 

/* tflu */ 


case 50: 

ss=regCtf 1 +regCtf 1 ar33; 
regCtf1ar3=(regCtf 1ar3+l)8017; 
break; 

/* tf1d */ 

case 51: 

ss=regCtf1+regHtf1ar33; 

regCtf1ar3=(regCtf1ar3-1)8017; 

break; 
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/* tfic */ 

case 52; 

ss=regEtf l+regCtf1arH3; 

regCtf1ar3=0; 

break; 

/* 2 */ 

/* If the z register is sourced, processor may simulate a four 

* cycle wait state */ 

case 11: case 12: case 13: case 14; 

xxQ=ss-11; 

xx1=0; 

xx2=regCcycU + regCcycsl+xxOD; 

if(( regCcycsl+xxO]<0)SS(reg[!cycl3<0)) xx1=ffff; 

if ((reglcycl3<0)88(xx2>regtcycl3)) xx1=ff ff ; 

if(C regCcycsL+xx0]<0)&&(xx2> regCcycsl+xxOD)) xx1=ffff; 

xx3=regCcych3+ regCcycsh+xxOD; 

if(xx1l=0) xx3++; 

ifC(xx3=0)&&(xx2<5)&S(xx2>=1)) -C 

xxT=0; 

xx2=regCcycsU+4; 

if((4<0)&S(reg:cycsa<0)) xx1=ffff; 

if ((regtcycsU<0)&&(xx2>regCcycslU)) xx1=ffff; 

if((4<0)SS(xx2>4)) xxl-ffff; 

xx3=regCcycsh3+0; 

if(xx1!=0) xx3++; 

regCcyclIl=xx2; 

regEcychD=xx3; 

> 

ss=regEsrcint CsslH; 
break; 

/* The default case Look up the register index and sources the 

* indicated register by bias */ 

default: 

ss=regCsrcintCssI13; 

break; 

> 

return(ss); 

> 

/* Store the sO source into the dO destination */ 

stordO(reg) 

int *reg; -C 
switch(dO) -C 

/**/ 

case 0: 
break; 

/* eOfO *J 

case 3: 
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regLe03=regCfO3=sO; 

break; 

/* eOgI */ 

case 4: 

regCeOD=regCg1 3=sO; 
break; 

/* efOg */ 

case 5: 

regCe0D=regCf03=regCg1D=s0; 

break; 

/* fOg1 */ 

case 7: 

regCf03=regCg1I]=sO; 

break; 

/* LfOn */ 

case 12: 

regCLfO+regCLfOaH3=sO; 

break; 

/* LfOu */ 

case 13: 

regHLfO+regCLfOain=sO; 
regCLf0al=(regHLf0a]+1 >807777; 
break; 

/* LfOd */ 

case 14: 

reg C If 0+reg C Lf Oain=sO; 

reg : Lf Oa]= ( reg L Lf Oa:-1 ) 807777 ; 

break; 

/* LfOa */ 

case 15: 

regCLfO+regCLfOa!]D=sO; 

reg C Lf 0a!3 = ( reg CL f Oa3+ reg Hi ndxOO ) 807777 ; 

break; 

/* p */ 

case 22: 

regCmuLf Lg3=ffff; 

regCp]=s0; 

break; 

/* peO */ 

case 23: 

regCp]=regCe03=s0; 

break; 

/* peOg */ 

case 24: 

regCp]=regCeOH=regCg1 1!=sO; 
break; 

/* pefO */ 

case 25: 

regCp]=regCe03=regCf0I]=s0; 

break; 

/* pefg */ 

case 26: 
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reg!IpD=regCeO!l=regCfO]=regng1D=sD; 

break; 

/* pfO */ 

case 27: 

r.egHp3=regIlf 0!]=s0; 
break; 

/* pfOg */ 

case 28: 

regCp3=regCf03=regCg13=sQ; 

break; 

/* pgl */ 

case 29: 

regCp3=regIIg1 3=sO; 
break; 

/* tfOn */ 

case 30: 

regiltfO+reg Ctf0aw33=s0; 
break; 

/* tfOu */ 

case 31 : 

reg Ctf 0+reg Ctf Oaw33=sO; 

regCtf0aw3=(regCtf0aw3+1)&017; 

break; 

/* tfOd */ 

case 32: 

regCtfO+regCtfOaw33=sO; 

reg Ct f 0aw3= C reg lit f 0aw3.-1) SOI 7; 

break; 

/* tfOc */ 

case 33: 

regCtfO+reg EItfOar33=sO; 

regCtf0ar3=O; 

break; 

/* tOba */ 

case 36: 

regCtf0ar3=regIItf0aw3=s0; 

break; 

/* The default Looks up the register bias again */ 
default: 

r,eglldb0intlld033=s0; 

break; 

> 

> 

/* This puts the si souce into the d1 destination */ 

stordl(reg) 

int *reg; -C 

int efad; 
efad=regCmar3*3; 



switchCdD -C 

/**/ 

case 0: 
break; 

/* arsp */ 

case 1 : 

printfC'A/Q not simuLatedO); 

erf Lg=ffff; 

break; 

/* elfl */ 

case 8: 

regCe13=regCf13=s1; 

break; 

/* ef1g */ 

case 9; 

regCe13-reg[f1]=regCgOD=s1; 

break; 

/* e1g0 */ 

case 10: 

regCe13=reglIe03=s1; 

break; 

/* fIgO */ 

case 12: 

regCf13=regCg03=s1; 

break; 

/* If In */ 

case 23: 

regCLf1+regCLf1a33=s1; 

break; 

/* Lflu */ 

case 24: 

regCLf1+regCLf1a33=s1; 

reg C Lf 1 al= C reg C Lf 1 a3+1 ) &07777; 

break; 

/* Lfid */ 

case 25; 

regHlf1+regIILf1a33=s1; 

reg C Lf 1 a3= ( reg : L f 1 a3-1 ) S07777; 

break; 

/* If la */ 

case 26: 

regCLf1+regCLf1a33=s1; 

regCLf1a3=CregCLf1a3+reg[Iindx03)&07777 

break; 

/* mmO */ 

case 32: 

regCmem+efad3=regCmiiii03; 

break; 

/* tnml */ 

case 33: 

regnmem+efad+13=regHmm113; 

break; 



/v-7 0 


/* ntm01 *! 

case 34: 

reg Cmeru+6'f ' 

reg Lmem+ef ad+1 3-regHmmi 1 ^ ; 

break; 

/* mm2 */ 

case 35: 

regCtnem+etad+ 23=regLnufn2J; 
break; 

/* nim02 */ 

case 36; 

reg Cmem+ef ad3=reg tmm i 0 J; 
peg Cmem+ef ad+23=regCmm i 23; 
break; 

/* mm12 *! 

case 37: 

regCmem+efad+l3— regummil J; 

regCmetn+ef ad+23=regtmmi23; 

break; 

/* mma */ 

case 38: 

regCmem+ef ad3=regCnitriiD3; 
regCmetn+ef ad+1 3-regCmnii13; 
regCmem+ef ad+23= reg Cmmn 23; 
break; 

/* q */ 

case 39: 

regCmulf Lg3=fff f ; 

regCq3=s1; 

break; 

/* qefi */ 

case 40: 

reg Cq3"regCe1 3“ reg Of 1 3— s1 ; 
break; 

/* qefg */ 

case 41 : ^ ^ 

regCq3=^regCe1 3=reg Of 1 3=reg CgO 3-sl ; 

break; 

/* qel */ 

case 42; 

regCq3“reg Cel 3==s1 ; 
break; 

/* qeig */ 

case 43; 

regCq3-re9te13=regCg03=s1; 

break; 

/* qfl */ 

case 44: 

regCq3=regCf13=s1; 

break; 

/* qfig */ 

case 45: 
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regCq3=regCf1]=regCgO]=s1; 

break; 

/* qgO */ 

case 46: 

regCqD=regCgOD=s1; 

break; 

/* tf1n */ 

case 47: 

regCtfl+regCtf 1aw33=s1; 
break; 

/* tflu */ 

case 48: 

regCtf 1+regCtf 1 aw33=s1 ; 

regCtf1aw3=(regHtf1aw3+1)&017; 

break; 

/* tf1d */ 

case 49: 

regCtf1+regCtf1aw33=s1; 
regCtf1aw3=CregCtf 1aw3-1)8017; 
break; 

/* tfic */ 

case 50: 

regCtf1+regCtf1ar33=s1 ; 

regiltf1ar3=0; 

break; 

/* tOba */ 

case 53: 

■ regCtf1ar3=regCtf1aw3=s1; 
break; 

/**/ 

default: 

regCdbl int Cd1 33-s1; 
break; 

> 

> 

/* Extrac determine the place to store regCmir+13 */ 

extrac(reg) 

int *reg; -C 
sO=s1=regCmir+13; 
dO=(regCmi r3)S0037600; 
d1=(regCmir3)&0000177; 
d0=finint (dOydOint); 
d1=finint(d1,d1int); 
f7 = d0tabCd03; 
f8 = dItabCdIO; 
stordO(reg); 
stordi (reg); 

> 


/* This routine returns the index of an input integer 'it' 
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* in the indicated table. Used for sources and destinations */ 

finintCit, table) 

int tableG; 

int i; 

for (i=0; table Li]] !=it;i++) 

■C if(i>10D) -Cprintf ("Source destination errorO); 

erflg=ffff; return; > 

if (tableCi3==-1){printf ("Source destination errorO); 
erflg=ffff; 
return; 

> 

> 

return(i); 

> 


/* 
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************************************************************** 

* 

* SHIFT AND I/O EXECUTION ROUTINES 

* 

■kicicici^'k'kiciciiicic'kicicic'kicicr^icicicic'kic^ic'kicicicificif'kicic'k'k'k'k'kit'k'k'kicicie'kic'kiicie'k'k'k'kic'ki 

* 

* The includes and compilations proceedures are the same as 

* exec.c 
*/ 

#include <stdio.h> 

^include ”ihcl2h.h" 

Sinclude "incl3h.h" 

/**/ 

/* Shift execution routine */ 
exshift(reg) 

int *reg; -C 

/* Determine if its a double or single shift, formulate opcodes 

* and call shift routines accordingly */ 

if ((regLmir+iaSOEOOO) != 6) -C 
f10="d"; 
dbshft(reg); 
op= regCmic3&0377; 
shft(reg,g0,g1,9); 

> 
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/* Single shift */ 

else -C 

flO="s"; 

op=(regCmir+1!]»2)S0377; 
shft (reg,eO,e1,7); 

op=((regCmir:»8)&077) | (CregCmir+1 JS03)«6); 

shft(reg,f0,f1,8); 

op=reg Cmi r] S0377; 

shftCreg,gO,g1,9); 

> 


/* This routine execute the double shift and calls 'shcl' to execute 
* the clear opcodes */ 

dbshft(reg) 

int *reg; t 

int op1, inbit; 

op=((regCmirD»8>&D77) | CCregnmir+13S03)«6); 
opi = (reg Cmi r+1 3»2) &0377; 

if(op!=op1) -C printf ("Double shift errorO); erflg=ffff 
return; > 

/* Determine the input bit 'inb'it' */ 

switch (Cop»3)&07) -C 

case 0: 
f7=f8="zin"; 
inbit=0; 
break; 

/**/ 

case 1 : 
f7=f8="oin"; 
inbit=1; 
break; 

1**1 

case 2: 
f7=f8="cir"; 

if(((op»6)S03)==1) inbit=regCf03a01; 
else inbit=(regCe13»15)S01; 

break; 

/**/ 

case 3; 
f7=f8="sgn"; 

if((inbit=(op»6)&01)==1) inbit=(reglle13»15)801; 
break; 

/**/ 

case 4: 
f7=f8="a15"; 

inbit=(regCshcon3»6)&01 ; 
break; 
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/**/ 


/**/ 


/**/ 


/**/ 


case '5: 
f7=f8="n15"; 

inbit= Cregnshcon!]»6)&Ql; 
break; 

case 6: 
f7=f8="a31"; 

inbit=CregCshcon3»7)&01; 

break; 

case 7: 
f7=f8="n31"; 

inbit= CregCshcon3»7)&01; 
break; 

default: 

f7=f8=''What?"; 

break; 

> 


/* Shift right Left or not at all */ 
switch ((op»6)&03) -C 

/**/ 

case 0: 

f7a=f8a="n"; 

break; 

/* Right shift */ 

case 1 : 
f7a=f8a="r"; 

reglf 03= (077777& ( reg Ef Q3»1 ) ) | ( ( reg Cf 1 3801) «15 ) 
reg Cf 1 3= (0777778 ( reg Ef 13»1,).) \< < reg Ce03801 5«1 5 ) 
reg Ce03= (0777778 ( reg Ce03»1 ) ) j‘ ( Creg Cet3801) «1 5 ) 
regCel 3= (077777S( reg Ce1 3»1 ) >1 ( inbi t<<! 5) ; 
break; 

/* Left shift */ 

case 2: 
f7a=f8a="L**; 

regCe13=(regi:e13«1) 1 ((regEe03»15.)801).; 
reg Ce03= ( reg Ce03«1 ) ( ( (reg Cf 1 3»1 5.) 801 ) ; 
regm3=(regEf13«.1)l((regCf03»-15)801); 
regtf03=(regt;f 03«t) j inbit; 
break; 

/**/ 

case 3: 

printf ("Illegal shiftO); 

erf Lg=ffff; 

break; 

> 


/* Call general 'shcL' routines */ 


>• >•. >• 
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shcL(e0^e1,reg,&f7b); 

shcL(fO,f1,reg,&f8b); 

> 

,/* General single shift routine op contains the opcode 

* of the register to be shifted, aO and a1 contain 

* the indexs of the register and k keys where the 

* output f-field is coded */ 

shft (reg,a0,a1,k) 

int *reg; -C 

int inbit; 
char *ff,*fg,*fh; 

/* Determine input bit */ 


/**/ 


/**/ 


/**/ 


/**/ 


/**/ 


switch(-(op»3)&07) -C 

case 0: 
ff=*’zin"; 
inbit=0; 
break; 

case 1: 
ff=”oin"; 
inbit=1; 
break; 

case 2; 
ff="cir"; 

switch C(op»6)&03) -C 

case 1: 

inbit=regHa03S01; 

break; 

case 2; 

inbit=(regCa13»1 5)801; 
break; 

> 

break; 

case 3: 
ff="sgn"; 

inbi t= (op»6) 8 ( regCal 3»1 5)801 ; 
break; 

case 4: 
ff="al5"; 

inbit=(regCshcon3»6)801; 

break; 


/**/ 


case 5: • 
ff="n15"; 
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inbit= (regCshconl»6)&01; 
break; 

/**/ 

case ,6: 
f.f="a31"; 

■i'nbit=(regCshconD»7)&01<; 

break;- 

/**/ 

case 7: 
ff='*n31 

inbit= (regCshcon3»7)801; 
break; 

/**/ 

default; 

ff="What?"; 

break; 

> 

/* Determine shift direction*/ 

switch((op»6)S03) ' -C 
case 0: 
fg="n*’; 
break; 

/* Right */' 

case 1.: 
fg="r"; 

reg Ca03= (reg IIa03»1) 8077777; 
if ((regCalO&OI) «=0) regCa0X(regCa0a)8O77777) 10100000; 
reg Cal 3= (0777778 ( reg Cal ]»1 ) ) | ( i nbi t «1 5 ) ; 
break; 

/* Left */ 

case 2: • 
fg="L"; 

regCal 3=reg Cal 3«1 ; 
if (pegCa03<0) regCa13++; 
regCa03= (regCa03«1 )+inbit; 
break; 

/**/ 

default; 

printfC'Bad' shift fieldO); 

erf Lg=ffff; 

break; 

> 

/’* Clear the indicated registers */ 
she I (aO,a1> reg^Sf h) ; 

/* Determine where the output strings are to be located */ ' 


switchCk) 
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/**/ 

case 7: 

f7=ff; 

f7a=fg; 

f7b=fh; 

break; 

/**/ 

case 8: 

f8=ff; 

f8a=fg; 

f8b=fh; 

break; 

!**/ 

case 9: 

f9=ff; 

f9a=fg; 

f9b=fh; 

break; 

> 

> 

/* Clear the indicated register bytes */ 

shcL (aO,a1,reg,ff ) 

int *reg; 

int *ff; { 

switch (op&07) < 

case 0: 

break; 

/* Clear byte 0 */ 

case 1 : 

reg i:a03=regna03S01 77400; 
break; 

/★/Claer byte 1 */ 

case 2: 

regEa03=regna03&0377; 

break; 

/* Clear byte 2 */ 

case 3: 

*ff="2"; 

regCa13=regEai:&01 77400; 
break; 

/* Clear byte 3 */ 

case 4; 

*ff="3'*; 

regCa13=regCa13&0377; 

break; 

/* Clear bytes 0 and 1 */ 
case 5: 
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reglla01=0; 

break; 

/* Clear bytes 2 and 3 */ 
case 6: 

regCa13=0; 

break; 

/* Clear all */ 

case 7: 

*ff="a"; 

regCa03=regCa1D=0; 

break; 

> 

> 

/* Execute the DSA portion of the 1/0; other I/O is not simulated */ 

exio(reg) 

int. *reg; < 

/* Decode the source fields */ 

sO-reg Cmi r+1 3 807700 ; 

s1=regCmir+138077; 

s0=f inint (s0,sr0int) ; 

s1=finint(s1,sr1int); 

f7=srctabCs03; 

f8=srctabCs13; 

source(reg); 

op= (regCmi r3»1 2) 803; 

switch (op) -C 

/**/ 

case 0: 

printf ("External interrupts not simulatedO); 

erflg=ffff; 

break; 

/**/ 

case 1 : 

printfC'FP to FP transfers not simulatedO); 

erf lg=ffff; 

break; 

/**/ 

case 2: case 3: 
f9="ds"; 

dsaio(reg,.0,&f11); 
dsaio(reg,1,Sf12) ; 
dsaio(reg,2,8f13); 
dsai'o(reg,3,8f14); 
break; 

> 


> 
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/* General dsaio routine, 'j* is the channel, ff is the output field */ 

dsaio(reg,j,ff ) 

int *reg; 

int *ff; C 

op=(regCmir!]»Cj*3))&07; 
switchCop) -C 

/**/ 

case 0:' 

*ff="nop"; 

break; 

/* LOAD B */ 

case 1 : 

*ff="lb"; 

reg Cb+ j 3=reg CbusIlSOI 7 ; 
break; 

/* LOAD S */ 

case 2: 

*ff="ls"; 

reg Cs+ j 3=reg CbusOD; 
break; 

/* LOAD S LOAD B */ 
case 3; 

*ff="lsb"; 

regCb+j3=regiIbus13&017; 
reg Cs+ j3=reg LbusOJ; 
break; 

/* READ */ 

case 4: 

regCcycsh+j3=regCcych3; regCcycsl3=regCcycl3; 

*ff="ru"; 

dsare(reg,j); 

regCs+j3++; 

break; 

/* WRITE */ 

case 5: ‘ 

*ff="wu'*; 

dsawr<reg,j); 

regts+j3++; 

break; 

/* LOAD S READ */ 
case 6: 

regCcycsh+3‘3=regCcych3; regCcycsl3=regCcycl3; 

*ff="wr'; 

reg Cs+j 3=reg CbusOD ; 
dsare(reg,j ); 
regCs+j]++; 
break; 

/* LOAD S WRITE */ 
case 7: 

*ff="wl!'; 

reg Cs+ j 3=reg CbusOD ; 
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dsawr(reg,j ); 
regCs+j !1++; 
break; 

> 

> 

/* DSA read reads from the disk raodomLy, flags overflow 

* Memory banks are files *bank0',bank1 ' etc. 

* Four memory banks are simulated/^ the read reads on all four channels 

* additional banks can be easily added as required */ 

dsareCreg,]) 

int *reg; f 
int i; 

switch(regCb+j3) t 

/**/ 

case Q: 

/* Flag cycle start for simulating wait state */ 

regCcycsl+j3=regCcycl3; regCcycsh+jl=regCcych3; 

/* If file non-existant flag error */ 

i f ( (bOpt r=f open ("bankO”," r") ) == ' 0 ’ ), -C 

printf ("Bank %d read errorO,regCb+j])‘; 

erflg=ffff; return; > 

/* Scan memory input into z~reg until memad 'regCs+jP' is matched 

* If the end of the bank is reached> an error is flaged */ 

for (i=0; i<=regCs+j]; i++) if ( (f scanf (b0ptr/'%x",Sregtaqzio*j3) )==-1 ) { 

printf C'Bank %d read overflow at %x hexO,regt;b+j3^regEs+jIl’); 

erf lg=ffff; return; > 

fcloseCbOptr); 

break; 

/* Exactly the same as case 0 except uses ’banki' */ 
case 1; 

regIcycsl+]3=reglIcycU-; regCcycsh+p^regCcychJ-; 
i f a b1pt r=f open C’bankl r ") ) == ' 0 ') f 

printf ("Bank %d. read errprO/regCb+j3); 

erflg=ffff; return; > 

for(i=0;i<=regCs+jl;i++) if ( (fscanf (b1ptr,"%x",.SregCaqZ’i‘n+j3‘))==-1) f 
printfC'Bank %d read overflow at %x ■hpx0y.regCb+j3,regCs+j3); 

erflgWfff; return; > 

fcloseCblptr); 

break; 

7 **/ 

case E: 

regCcyc.sl+j3=regtcycLD; ■ regrcycsh+-j3=regCcychD‘; 
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.if((b2ptr=fopen("bank2","r"))=='0') -C 

printf ("Bank %d read errorO,regHb+j!]); 

erftg=ffff; return; > 

for(i=0;i<=regCs+j3;i++) if ((f scant (b2ptr.>'’%x",&regCaqzin+j3>)==-1) -G 
printfC'Bank %d read overflow at %x hexO,regCb+jD,regEs+j3); 

erflg=ffff; return; > 

f cLose(b2ptr); 
break; 

/**/ 

case 3: 

regCcycsL+j3=regCcycL3; regCcycsh+j3=regEcych3; 
i f ( (b3pt r=f open ( "bankS"," r ”) ) == ' 0 ' ) -C 

printfC'Bank %d read errorO,regLb+j3); 

erflg=ffff; return; > 

for(i=0;i<=regCs+j3;i++) if (Cf scant (b3ptr,"%x",&regCaqzin+j3))==-T) -C 
printfC'Bank %d read overflow at^ %x hexO/regCb+j3,regCs+j3); 

erflg=ffff; return; > 

f close (b3ptr); 
break; 

1**1 

default: 

printfC'Bank %d not simulatedO); 

erflg=ffff;- 

break; 

> 

> 

/* The DSA write simulates a random access memory on the disk 

* Their are no errors, if the file doesn't exist it is' created */ 

dsawr(reg>j ) 

int *reg; -C 

int i,dum;- 

regCaqzinfj3=regCbus13; . 
switch(regCb+j3) -C 

/**/ 

case 0: 

/* See if file exists, if not create it and append zeros until 

* the proper address is reached, then append the value in the 

* 'aqzin' register */ 

if ( (bOpt r=f open ("bankO"," r") ) == ' 0 ' ) -C 

b0ptr=f open C"bank0","w">; 
if(regCs+j3==0) -C 

f pr i ntf ("%x0, peg EaqZi n+ j 3 ) 
return; 

> 

fprintf (b0ptr,"00); 
wrtpstOlreg, j,1 );, 
return; 

> 
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/* If the file exists, determine whether the value can be 

* appended to the end of the file or whether it has to replace 

* an existing value ' */ 

for (i=0; i<=regCs+jH;i++) {. 

if ((fscanf (bOptr," %x *',8dum))==-1) -C 

/* The write address is past the end of the file so append '*/ 

wrtpst 0 (reg, 3 ,i); return; > 

> 

/* At this point it has been determined that the value must be inserted 

* in an existing file. The file is written on to a dummy file 

* called ..buff and when the address is reached, the 'aqzin' value 

* is written on the disk. Then the rest of the file is written out */ 

fcloseCbOptr); 

■ bOptr=fopen("bankO",’’r'‘); 
bufptr=fopen(". .buf f ","w"); 
for (i=0;i<reglls+.ill;i++) -C 

f scanf (bOptr,"%x",&dum); 
fprintf (bufptr,"%xO,dum); 

y 

/* Scan for entry to be thrown out */ 

fscanf (bQptr,"%x",&dum); - 
fprintf (bufptr,"%xd,regEaqzih+j3); 
whi le ( (f scanf (bOptr,"%x",Sdum) !=-1) ) 
fprintf Cbufptr,"%xO,dum); 
f close (bufptr); 
fclose(bOptr); 

/* Restore bankO *7 

system'C'mv ..buff bankO”); 
break; 

/*Bank 1 write */ 
case 1 : 

i f ( (bl pt r=f open ("ban k1 r” ) ) == ' 0 • ) t 

bipt r=fopenC"bank1 ","w"); 
if Creglls+jll==0) -C 

fprintf ("%xO>regCaqzin+j!]); 
return; 

> 

fprintf (b1ptr, ”00); 
wrtpsti (reg,j,1)-; 
return; 

> 
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for(i=0; i<=regCs+j3;i++) t 

if (Cfscanf CbTptr,” %x ",&durti) )™-1 ) 
wrtpsti (reg,j^i); return; 

> 

fcLose(blptr); 
bTptr=fopenC"bank1","r”); 
bufptr=fopen(". .buff 
for(i=0;i<regCs+j!];i++) < 

fscanf (b1 ptr,"%x"^&duni); 
fprintf Cbufptr,"%xO,dum); 

> 

fscanf (b1ptr,"%x",&dutnX; 
fprintf (bufptr,"%xO,regCaqzin+j3>; 
whi Le ( (fscanf (b1ptr,"%x",&dum) 1=-1)) 
fprintf (bufptr,"%xO,dum); 
f cLose(bufptr); 
f cLose(blptr); 
systemC'mv ..buff banki"); 
break; 

/**/ 

default: 

printfC" Bank %d not simulatedO^regCb+j^); 
break; 

> 

> 

/* This routine writes on the disk in 'bankO' when -i.t 

* that an append is sufficient 

wrtpstOCreg, j,k) 

int *reg; -C 
int i; 
fcLose(bOptr); 
bOptP=fopen(*‘bankO","a"); 
for (.i=k; i<regCs+j3;i++) fprintf (bOptr, "00) ; 
f pr i ntf CbOpt r,"%x0, reg Eaqz i n+ j 1 ) ; 
fcLose(bOptr); 

> 

/* This routine writes on the disk in *bank1 ' when it 

* that an append is sufficient 


wrtpsti (reg, j,k) 

int *reg; -C 
int i; 
fcLose(blptr); 
b1ptr=fopen("bank1","a">; 
for (i=k;i<regCs+jO;i++) fprintf (bipt r, ”00); 
fprintf (b1ptr,"%x0,regCaqzin+jD); 
fcLose(blptr); 

> 

# incLude<stdio.h> 


page is- 
POOK QUALITY 


< 

y 


is indicated 
*/ 


is indicated 
*/ 
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oLdseekCf i Ldes, offset ,ptrnanie) . 
int fi Ldes, offset ,ptrhame; 


/*if ptrname is 0, the pointer is set to offset. ' ‘ */ 
/*if ptrname is 1, the pointer is set to’ its current .Location */ 
I* pLus offset. . . ■ - . 

/*if ptrname is 2, the pointer is set to the size of the file *7. 
/* plus offset. ’ */ 
/*if ptrname is 3, 4 or 5, the meaning is as above for 0, 1 and 2 */ 
'/* except fha.t the offset' is' multiplied by 51-2'. ‘ ' */ 

7 * *7 


/*If ptrname is 0 or 3, offset is unsigned, otherwise it is signed. */ 

■/****yf****************************************'***'**'*'**********it **********/ 

■LseekCf'i Ides, (long) (off set), ptrname); 

> ‘ ‘ ■ 


/****************************************************************/ 
/* This will create the help files to aid a used with the exec*/ 
/* ution of the .programs. ' ’ ‘ 

/ ***************************************************************** / 
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APPENDIX 4 

FLEXIBLE PROCESSOR MICRO-ASSEMBLER LISTING 


/* 

* 
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*★★★*★*★*★★★*■*****;*: :fc:itir***********Jf ★***★★** ***^*******iHr *■******★**★** 

* MICROCODE ASSEMBLER 1:01 9/10/79 


■k 

* 

* 

* 

* 

* 

★ 

k 

* 

* 

* 

* 

* 

* 


CAUTION: IF THIS SEEMS NOT TO WORK, CHANCES ARE ITS' YOUR INPUT 

FILE. ANSWER THE FOLLOWING aUESTIONS YES BEFORE 
ATTEMPTING TO 'DEBUG' THE ASSEMBLER. 

1. Is there a # at the end of the source Listing? 

2. Do aLL the instructions have the proper number 

of fields ? 

3. Are their no control characters hidden in the file? 

If this doesn't cure the probleni check the tables to make sure 
you have proper input formats, I could have sworn 
many times that the assembler was bonkers when it was 
my source. This assembler should not have bugs 




* This program is compiled as *cc pasl.c -IS' 

* The first line includes the new I/O package 

* And the FILE declarations reserve space for the I/O disk files */ 



*objptr,*srcptr; 


SincLude <stdio.h> 

FILE 

/* Storage for labels and their values the symbol table */ 
struct -C 

char idL6H; 

int add; 

> syrndOO]; 

/* Globals, line number; table index; error flag; output words; 

ALU op; carry Log/arit; memory address */ 

int lnum,tabin,erf ,out0,outl,out2,alu,car,madd; 

/* Field inputs */ 

char nameC7],addC4D/SrOL5I],srH5]],dO[15Il,d1 C5!l, 

source!160D; 

/******************************************************************** 


* * 

* The following tables are the heart of the assembler * 

* a mnemonic is read in to one of the field inputs and * 

* this is "looked up" in one of the following tables * 

* If a match is found, the index of the table at the matching * 

* word is returned. In many cases this is the opcode * 

* ■ associated with the mnemonic Looked up. If it is not, * 

* ’-that index is used as an index to another array of integer * 

* constants whose values are the proper opcodes * 

* If the input mnemonic is not found, a -1 is returned and * 

* • an error is flaged. * 

* * 


********************************************************************/ 


/* 

■* 

*/ 


/* 

* 

*/ 


Type field Lookup table 

char *typetabG 1 
"org", 
"equ", 
"sh", 
*'io". 


>; 


Condition code Lookup table 


char *contabC3 { 



/J 
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"uns", 

"tn", 

"tnn", 

"tns", 

"fn", 

"fnn", 

"fns", 

"ad", 

"adn", 

"ads", 

"up", 

"upn", 

"ups", 

"tp", 

"tpn", 

"tps", 

"fp", 

"fpn", 

"fps", 

"io", 

"ion", 

"ios". 


/* Lookups for opcodes in condition field*/ 


conintCU 


-10,0,1,2,2,3,4,4,5,6,6,7, 
8,8,9,10,10,11,12,12,13, 
14,14,15 >; 


Index Lookup table 


*idxtabCD -C 


"nop", 

"inO", 

"ini", 

"in2", 

"in3", 

"dcO", 

"del", 

"dc2", 

"dc3", 

"clO", 

"cU", 

"cl2", 

"cl3", 

"ceO", 

"cel", 

"cLa", 

-1 


Return jump table 
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*/ 


/* 

* 

*/ 


/* 

* 

*/ 


char *rjtabCI] t 

“np", 

"jp", 

"sr", 

"df'V 

-1 >; 

HuLtipLy table 

char *muLtabCH -C 

"pLpL"/ 

"plpu", 

"plql", 

"pLqu", 

"pupL", 

"pupu", 

"puql", 

"puqu", 

"qlpL"/ 

“qlpu", 

"qlql", 

"qlqu'V 

"qupL", 

"qupu", 

"quql", 

"ququ", 

- 1 . >; 

ALU table 


char *addtablll] "C 

"e", 

"g". 


"add", 

"sub", 

"e-g", 

"fff", 

■’set", 

"zro", 

"e+e", 

”e+1", 

"e-1", 

"and", 

"or", 

"e=g", 

"oce", 

"en", 

"ocg", 

"gn", 

"sb.1", 

"xor". 
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-1 >; 

y* Opcode lookups */ 

int add, inti:: {037,032,051 ,06,06;043,043,023„ 

054,0,057,033,036,046,020,020, 
025,025,046,026 >; 

/* ALU tables for non-special lookups */ 


/* 

* 

*/ 


char 


char 


★cartabC: -C 


•ac","lc","an'',"ln''. 


-1 >; 
*funtabli: -C 


"O", 

"b", 

“1 


rr^ ■■ >'2** iiyii 







Shift decode table 


char *shoptabC: -C 


"nzin 

1 

/ 

"noin 

1 

r 

11 * 
ncir 

1 

/ 

"nsgn 

r 

/ 

"na15 

1 

"nn15 

1 

A 

"na31 

1 

r 

"nn31 

1 

r 

"rzin 

1 

f 

"roin 

1 

"rci r 

1 

r 

"rsgn 

1 

' / 


"ral5", 

"rn15", 

"ra31", 

"rn31", 

"Izin", 

"loin", 

"Icir", 

"Isgn", 

"la15", 

"ln15", 

"la31", 

"ln31". 


IS 


/* Shift clear field decode */ 


int 


char *shctabC: { 

"0", "n", "0", "1", "2", "3", "I", "u", "a",- 
-1 >; 

shcintn {0,0,1, 2,3,4,5, 6,7 >; 
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/ 53 ^ 


T* 

* Input Output 

*/ 

char 


/**/ 


int 

char 


int 


/* 

* Source codes 
*/ 

char 


tables 


^ioptabCIl -C 
"xi", 

"fp", 

"ds", 

"aq% 

"dp”, 

- 1 >; 

iopintC] -C 0,1, 2, 2, 3, 3 >; 


*iotabCJ -C 

“nop", 

"sxl", 

"ckO", 

"aqa", 

"cx.l",. 

"ckl", 

"red", 

"cOI", 

"wrt", 

"cwa", 

"rhr", 

"ceO", 

"whr", 

"cel", 

"rhc", 

"ceb", 

"whc", 

"nop", 

"lb", 

"Is", 

"L-sb", 

M_ll 

r , 

"ru", 

"w", 

"wu". 


'-'Lr", 

"rl", 

"Lw", 

"wL", 

-1 >; 
iointC] 


t0,1,1,1,2,2,2,3,3,4,4,5 

6,6,7,7, 

0,1,2,3,4,4,5,5,6,6,7,7 


>5, 

>; 


*srctabD -C 

"nop", 

"aOsw", 



A- 91 


/SZ 


"aOrs", 

"aOrz"^ 

"aO", 

"alsw", 

"airs", 

"alrz", 

"a1", 

/**/ 

"qrsp", 

"arsp", 

"aiO", 

"ai1", 

"ai2", 

"ai3", 

/**/ 

"bsrO", 

"bsri", 

"fO", 

"ifOn", 

"ifOu", 

"ifOd", 

"ifOc", 

"ifin", 

"iflu", 

"ifld", 

"ific", 

"imrO", 

"intr", 

"LOad", 

"LfOn", 

"LfOu", 

"LfOd", 

"LfQa", 

/**/ 

"Llad", 

"Lfin", 

"Lflu", 

"Lfld’-', 

"Lfla", 

"mar", 

"mcrO", 

"uiuLt", 

"tfOn", 

"tfOu", 

"tfOd", 

"tfOcV, 

"tOra", 

"tOwa", 

I'tfin", 

"tflu". 
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A? 


/* 

* 

• */ 


"tfl'd", 
"tfic", - 

”zQ”, 

”z1", 

"z2", 

"z3", 

-1 >; 


Bus 0 integers 


int 

00 . 

0100 

02100 

04100 

0&100 

.0200 

02200 

04200 

06200 

0600- 

02600 

0500- 

02500 

04500 

06500 

01.700 

03700 

0300' 

02-300 
01000 
03000 
O5OO0 
07000 
01100 
.03100 
05100 
■07100 
01600 
,03600 
. 07600- 
017.7777 
0T400 
03400 
05400- 
074QQ 
06700 
01500 
03500 
05500 


srOi'rit'D -C 


/* 

0,*/ 

> 

/* 

40 */, 

/* 

440 

*/, 

/* 

840 


/* 

c40 


/* 

80 *1, 

/* 

480, 


/* 

,880 


/* 

c80 

*/, 

/* 

r80 

*/, 

/* 

580 


/* 

140 

*1, 

/* 

540 

*/, 

/* 

940 

*// 

/* 

d40' 

*/, 

/* 

3c0 


/* 

7c0 

*/, 

>* 

cO *!'. 

/* 

4cO 

*/, 

/* 

200 

*6 

/* 

600 

*/, 

f* 

aOb 

*/^ 

/* 

eOO 

*/, 

/* 

240 

*/, 

/* 

640 

*/,- 

/* 

a40 

*/, 

/* 

e40 


M 

380 


/* 

780 


/* 

•f80. 

*/> 

/*■ 

ffff */, 

•/* 

300 


/* 

700 


/* 

bOO 

*/, 

/* 

fOO 


/* 

dcO. 


/* 

■340 


/* 

740 

*/, 

/* 

b40 

*/, 
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/* 

* 

*/ 


07500 

/* 

f40 


0700 

/* 

IcO 

*/, 

05700 

/* 

bcO 

*/, 

0400 

/* 

100 

*/, 

01200 

/* 

280 

*/, 

03200 

/* 

680 

*/, 

05200 

/* 

a80 

*/, 

07200 

/* 

e80 

*/^ 

02700 

/* 

5c0 

*/, 

04700 

/* 

9c0 

*/, 

01300 

/* 

2c0 

*/, 

03300 

/* 

6c0 

*/, 

05300 

/* 

acO 


07300 

/* 

ecO 

*/, 

02400 

/* 

500 

*/, 

04400 

/* 

900 

*/, 

0500 

/* 

140 

*/. 

02500 

/* 

540 

*/, 

04500 

/* 

940 

*//- 

06500 

/* 

d40 

*/ 


Bus one integers 



int 

srl 

lintc: C 

00 


/* 

0 

*/, 

01 


/* 

1 

*/, 

021 


/* 

11 

*/, 

041 


/* 

21 

*/, 

061 


/* 

31 

*/, 

02 


/* 

2 

*/, 

022 


/* 

12 

*/, 

042 


/* 

22 

*/, 

062 


/* 

32 


06 


/* 

6 

*/, 

026 


/* 

16 

*/, 

05 


/* 

5 

*/, 

025 


/* 

15 

*/, 

045 


/* 

25 

*/, 

065 


/* 

35 

*/, 

017 


/* 

f 

*/, 

037 


/* 

If 

*/, 

03 


/* 

3 

*/, 

023 


/* 

13 

*/, 

010 


/* 

8 


030 


/* 

18 

*/, 

050 


/* 

28 

*/, 

070 


/* 

38 

*// 

Oil 


/* 

9 

*/, 

031 


/* 

19 

*/, 

051 


/* 

29 

*/, 

071 


/* 

39 

*/, 

016 


/* 

e 

*/, 


>; 
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036 

/* 1e */, • 


076 

/* 3e */, - 


067 

/* 37 */, 


014 

/* c */, 


034 

/* 1c */, 


054 

/* 2c */, 


074 

/* 3c */, 


0177777 

/* ff-ff */, 


015 

/* d */, 


035 

/* Id */, 


055 

/* 2d */, 


075 

/* 3d */, 


0177777 

/* ffff */, 


057 

/* 2-f */,, 


04 

/* 4 */, 


012 

/* a */, 


032 

/* la */, 


052 

/* 2a ■*/, 


072 

/* 3a */, 


027 

/* 17 */, 


047 

/* 27 */, 


013 

/* b */, 


033 

/* Tb */, 


053 

/* 2b */, 


073 

/* 3b */, 


024 

/* 14 */, 


044 

/* 24 */, 


05 

/* 5 */, 


025 

/* 15 */, 


045 

/* 25 */, 


065 

/* 35 */ 

/* 



* 

Destination 

codes bus 0 

*/ 




char *dOtabCD -C 


"nop", 

"brgO", 

"eO", 

"eOfO", 

"eOgI", 

"efOg", 

"fO", 

"fOg1", 

"gi”, 

"imrO", 

"imrl", 

"intr", 

"LfOn", 

"LfOu", 

"LfOd", 

"LfOa", 

"LOad", 





00 

0400 
04200 
024200 
01 4200 
034200 
020200 
030200 
01 0200 
023200 
027200 
037200 
03000 
07,000 
013000 
01 7000. 
027000 
035600 
03400 
021600 
025600 
031600 
01000 
05000 
01 5000 
025000 
035000 
021000 
031000 
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"mmiO", 

"mmil", 

P f ■ 
"peO", 
"peOg% 
"pefO", 
"pefg% 
"pfO", 
"pfOg”, 
"pg1% 
"tfOn", 
"tfOu", 
"tfOd'V 
"tfOc", 
"tOra", 
"tOwa", 
"tOba", 
"ifOa", 

-1 ' >; 
int dOint.n t 

/* 0 *! f 

/* 100 */, 
/* 880 */, 
/* 2880 */, 
/* 1880 */, 
/* 3880 */, 
/* 2080 */, 
/* 3080 */, 
/* 1080 */, 
/* 2680 */, 
/* 2e80 */, 
/* 3e80 */, 
/* 600 */, 
/*• edo */, 
/* 1600 */, 
/*-1eOO */, 
/* 2e00 */, 
/* 3b80 */, 
/* 700 */, 
/* 2380 */, 
/* 2b80 */, 
/* 3380 */, 
/* 200 */, 
/* aOO */, 
/* laOO */, 
/* 2a00 */^ 
/* 3a00 */, 
/* 2200 */, 
/-* 3200 */, 






a 


% 
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/// 


/* 

*/ 


ono.00 

/* 

1200 */, 

02400 

/* 

500 */, 

06400 

/* 

dOD */, 

012400 

/* 

1500 */, 

016400 

/* 

IdOO */, 

026400 

1 * 

2d0D */, 

032400 

/* 

3500 */. 

036400 

/* 

3d0d, */, 

026000 

1 * 

2c00 */ 


Bus one destination codes 
char *dltabG -C 


•'brg1% 

"cmrO'*, 

"cmnrV 

"ctnrZ", 

"cmr3", 

"e1" 

"elfl", 

"efig", 

"elgO", 

n 

"f1g6", 

“gO", 

"icrO", 

"icrV-', 

"icr2", 

"icr3", 

"idxD", 

"idx1", 

”idx2", 

"idx3", 

"Lf1n", 

"Iflu", 

"Ifld", 

"If 1a", 

"Had", 

"mcrO”, 

"mcrl", 

"mcr2‘-', 

"mcr3", 

"mmO", 

"mml", 

"niTn2", 
"mmQ2", 
"mm12", 
"mm a",' 


>; 
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■i_it 

q .f 

"qefi", 

"qefg", 

"qel”, 

"qeig", 

-qf.r, 

"qfig", 

"qgO", 

I'+. + lr,** 



"tflu' 

r 


"tfld* 

/ 


"tf1c‘ 

tr* 


"t1 

1 ra’ 

II 

/ 


"t1 

Iwa' 

II 

/ 


"tlba’ 

11^ 


“1 


>; 

int dlinti 


00 

/* 

0 */^ 

01 66 

/*■ 

76 


02 

/* 

2 */^ 

015 

/* 

d ^ 


035 

/* 

Id 

*/, 

055 

/* 

2d 

*/, 

075 

/* 

3d 

*/, 

021 

/* 

11 

*/, 

0121 

/* 

51 

*/, 

0161 

/* 

71 

*/, 

061 

/* 

31. 

*/, 

0101 

(* 

41; 

*/, 

0141 

/* 

61 

*/, 

041. 

/* 

21 

*/y 

0117 

/* 

4f 

*/, 

0137 

/* 

5f 

*/, 

0157 

f* 

6f 

*/, 

0177 

/* 

7f 

*/, 

017 

/* 

f */,, 

037 

/* 

If 

*/, 

057 

/* 

2f 

*/, 

077 

/* 

3f 

*/, 

0130 

/* 

58 

*/, 

014 

/* 

c ; 


034 

/* 

1c 

*/, 

054 

/* 

2c 

*/y 

074 

/* 

3c 

*/, 

,0134 

i* 

5c 

*/, 

.0116 

/* 

4e 


0136 

/* 

5e 


0156 

/* 

6e 

*fr 

0176 

/* 

7e 

*/, 

027 

/* 

17 

*// 

047 

7* 

27 

*/, 

067 

/* 

37 
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j!(o3 


0107 

/* 

47 

*/, 

01 27 

/* 

57 

*/, 

0147 

/* 

67 

*/, 

0167 

/* 

77 

*/, 

04 

/* 

4 */, 

0124 

/* 

54 

*/, 

0164 

/* 

74 

*/, 

024 

/* 

14 

*/, 

064 

/* 

34 

*/, 

0104 

/* 

44 

*/, 

0144 

1* 

64 

*/, 

044 

/* 

24 

*/, 

012 

/* 

a */, 

032 

/* 

la 

*/, 

052 

/* 

2a 

*/, 

072 

/* 

3a 

*/, 

0132 

/* 

5a 

*/, 

0152 

/* 

6a 

*/, 

0172 

/* 

7a 

*/ 


}**J 

mainO -C 
/**/ 

int adpar,i,hexnum; 

char itC83; 

/* Prompt for source and set input buffer pointer */ 

printf ("Source? 
scanf("%s'V source); 

if ((srcptr=fopen(source/"r")')==*0') -C 

printf ("Cannot open source fi'LeQ); 
return; > 

■obj pt r=f open ("object", "w"); 
erf =madd=tabi n=0; 

Lnum=1; 

/* 

* Read and assemble symbol table on first pass 
*/ 

while ((nameC03=getc(srcptr)) 1='0’) 1 
lnum++; 

/* Action is based on first character in line 

* # says end of file, go to pass two 

* * says comment 

* space or tab says instruction, no label 

* anything else is a label */ 

switch(nameC03) -C 
/* End of file, call pass two */ 

case'#' ; 
newline (); 
if(erf”0) -C 
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y' 


pas2(); 

fprint.f (objptr,"#0); > 

return; 

break; 

/* Comment, kick' Line pointer only */ 

case'*': 

newLineO; 

break; 

/* If its an origin input address, else kick address */ 

case' ': case' 

if (fscanf (srcptr,"org %x",&hexnum) !=0) 
madd=hexnum; 
else madd++; 

newLineO; 
break; 


/* Default to build the label from the first characters < until 
* space or tab is encountered) 

default:- 

for(i=1;i<6;i++) -C 

nameCi3=getc(srcptr); 
if (nameCi3==' ' | |nameCi3==' 
break; 

> 

nameCiIl='0*; 

if (fscanf (srcptr,"equ %x",&hexnum) !=0) 
adpar=hexnum; 
else adpar=madd++; 

/**************** adpar~~; ***TEST *****/ 

adtab(adpar); 

newLineO; 

break; 

> 


> 

> 

newlineO -C 

whi leCgetc(srcptr) !='0); 

> 


*/ 


/* Add global character "name"' to symbol table with value adpar */ 

adtab(adpar) 

int *adpar; -C 

int i; 

cktabO; 

for (i=0; (symttabin3.idEi3=nameCi]) !='0';i++); 

symCtabinU .add=adpar; 

tabin++; 

> 

/* Check to see if name is in table */ Pa^ 



cktabO -C 


int 

for(i=0;-K=tabin;i++) <. 

for(j=0;namBCj3 1='0'; j++) 

if (nameCj3 !=symEli3.idCj3) 
goto nomatch; 

printf ("DoubLe Definition %s Line %dO,name,Lnutn); 
erf=1; 

nomatch: ; 

> 


> 


/*★*********************************★********************************** 

* 

* PASS TWO 

* 

***★*************************<;**************************★***********<;*/ 

pas2()C 

int i; 

char f1C53; 

Lnum=1; madd=0; 

/* Rewind source, output symbol table to file "object" */ 
rewind(srcptr); 

printf (" Pass one complete :0 0'*-); 

fprintf Cobjptr," Symbol TableO"); 

for(i=0;i<=tabin;i++) 

fprintf (objptr,"%s %x0,symlli'3.id,sy,mlli3.add); 

fpr intf (obj ptr,"##0) ; 
while ((nameL03=getc(srcptr)) 1='0') € 

/* Key on first symbol, same action as in pass one */ 

switch(nameC03) -C 
/•* # says done */ 

case *#': 

return; 

break; 

/* Comment */ 

case 

break; 

default: 

switch (nameC03) { 

/* Instruction, not labeled */ 

case ' ': case' 

.break; 

/* Label says lookup in symbol table */ 

-default; 

for(i=1;i<6;i++) -C 

nameCi3=getc(srcptr); 
ifCnameLin—’ • I l,nameCi3==' 
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break; 

> 

nanieCi]='0'; 

break; 


/* Decode first field. org-> read next field into madd 

equ-> ignore 

valid field-> assemble it */ 


/* ORG */ 

/* EQU */ 

/* SH */ 

/* I/O */ 

/* TC */ 

/* TR */ 

1**1 


fscanf (srcptr,"%s",f1); 

■switch(lookup(f1,typetab5) il 

case 0: 

■fscanf (srcptr,"%x'V8inadd); 
break; 

case 1 : 
break; 

case .2: 

fprintf (objptr,"%x ",madd).; 

shiftO; 

madd++; 

break; 

case 3: • 

fprintf (dbjptr^"%x ",madd)'; 

inout.O'; 

madd++; 

break; 

case 4: . . 

fprintf (objptr,''%x ",madd); 

tranconO; 

madd++; 

break; 

case 5: 

fprintf (objptr,"%x ",madd); 

transfer (); 

•madd++; 

break; 

default: 

printfC'Invalid TYPE field Line %d0,lnufn); 
break; 

> 

break; 


newlineO; 

lnum++; 
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> 

/* General table lookup routine 
* 

* This routine returns the index of the item in the 

* specified table */ 

lookup (item, chart ab) 

char *item; 

char **chartab; -C 

int i/.j,r,k; 
for(i=0;chartabCi3 !=-1;i++) -C 

for(j=0; (r=chartahCi3C33) == itemCj] r 1= '0';]++) 
ifCr == itemCj]) 

return(i); 

> 

return (-1); 


/* Decode shift instruction */ 
shiftO T 

char eshC53,fsh[153,gshL5],preC53; 

int lo6f,hi2f; 

dec2(); 

out 2=out 2 1 01 00000; 

fscanf (srcptr,"%s%s%sXs%s",add,esh,fsh,gsh,pre); 
hi2f=shdec(fsh); 

Io6f=hi2f&077; 
hi2f=hi2f»6; 
added) ; 

/**/ 

out1 = (alu«12) I (predec(pre)«10) | (shdec(esh)«2) ]hi2f; 

/**/ 

out0=(car«14) | (lo6f«8) IshdecCgsh); 

fprintf (objptr,"%x %x %x0,out0,out1,out2); 


/* Decode the input output instruction */ 
inoutO -C 

char iopC53,ch3C5D,ch2C53,chi:53,ch0L53; 

dec20; 

out 2=out 2 1 01 40000 ; 

fscanf (srcptr,"%s%s%s”^add,sr0,sr1); 

added); 

deelO; 

fscanf (srcptr,"%s%s%s?sXs",iop,chO,ch1,ch2,ch3); 
out0=(iopdec (iop)«12) 1 lcar«14) | (iodec (ch3)«9) 1 Ciodec (ch2)«6) 

1 (iodec (chi )«3) | iodec (chO); 
fprintf (objptr,*'%x %x %x0,out0,out1,out2); 
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> 

/* Decode, the transfer constant instruction */ 
tranconO i 

char LaibLeCIOH; 

dec2(); 

out 2=out 2 j 040000; 
fscanf(srcptr,"%s", table); 

/* Determine if constant is hex or a Label 

* $ means hex number but -the $ itself must be delimeted 

* by spaces tabs or returns */ 

switch (table COD) -C 
case 
out 1=0; 
break; 
case '$*: 

it Cf scanf (srcptr,"%x",Sout1 )==0) 

printfC'Invalid HEX CONSTANT Line %d0,Lnuni); 

break; 

default: 

out 1=0; 

findxC table); 

if (out T=0)’ 

printf ('.'Invalid HEX LABLE. Line %d0,lnum); 
break; 

> 

.fscanf (srcptr,"%s%s",d0;d1); 
car=0; 
decQO; 

fprintf (objptr,"%x %x %x0,out0,out1/.out2); 

> 

/* Decode the transfer instruction */ 

transferO C 

dec2(); 

fscanf (srcptr,"%s%sXs%s%s”,add,sr0,d0,sr1,d1); 

addecO; 

decK); 

dec0(); 

fprintf (objptr,"%x %x %x0,out0,out1/out2); 

> 

/* Decode the ALU; carry Log/arit returned if car; funcion number in 

* global variable a.lu */ 

addecO' -C 

char carcdC23; 

int ret; 
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car=aLu=0; 

i-f ( ( add no:— ’ * ' ) SS (add El ]== ' 0 ' ) ) retu rn; 

/* See i-f item addC3 is in the addtab, it wiLL be 

* only if it is a special mnemonic C Table 5-1 ) */ 

if ((ret=lookup(add,addtab)) != -1) -C 
car=addintCretD»4; 
alu=addinttretHS017; 
return; 

> 

/* Not a special mne. so decode in two- parts^ car-log/arit 

* and the funtion number */ 

carcdC03=addn03; 

carcdC1D=addC1]; 

carcdC23='0'; 

if ((car=Lookup(carcd,cartab))==-1)’ -C 

printf ("Invalid ALU field Line %dO,lnum); 
return (-1 ); 

> 

cared C03=add E23 ; 
carcdE13='0‘; 

i f ( ( a I u= Loo kup ( car cd, f untab) ) ! =-1 ) 
return;' 

printf ("Invalid ALU field Line %dO,lnum); 

> 

/* General shift decode function 

* Takes shop, the input character mnemonic and 

* Returns the proper numerical opcode */ 

shdec(shop) 

char *shop; t 

int ret, ret 1; 

cli3P ciCSH’* 

if ( ( shopC03== ' * * ) &&'(shopC1 3== ' 0 ' ) ) retu rn (0 ) ; 

ciL03=shopC4T; 

ciC1>'0’; 

shopC4Il='[)'; 

if ((ret=Lookup(shop,shoptab)) != -1) 
if ((ret1=lookup(ci,shc.tab)) != -1) 

return ((ret«3) 1 (shcintCretlJ)); 

else 

printfC'Invalid SHIFT field Line %d0,lnuni); 

else 

printfC'Invalid SHIFT field Line %d0,tnum); 

> 


/* Decode the shift precision field 
*/ 



776 
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predec (pre) 

char *pre ; -C 

if ((preC03=='*')&S(preI11]==*0')) return (0); 
if (preC03=='s'&Spre[;i]==*0*) 
return(Q); 

if CpreC0>='d’aSpreC1>='0') 
returnd); 

printf (''Invalid SHIFT field Line /idO,Lnum); 

> 


/* Build word two for all instructions */ 
dec20 -C 

char conC4],idxC4D,rj C3D,muLttI5]; 
fscanf (srcptr, "Xs%s%s%s", con, idx,rj, mult); 
out2=Ccondec(con)«10) 1 (idxdec(idx)«6) 1 (rjdec(rj )«4) |multdec(mult); 

> 

/* Decode ^condition field */ 


condec (con) 


> 


char *con; { 

int ret; 

if ((conC0:=='*')&&(conL13=='0')) returnCO); 
if ((ret=lookup(con,contab)) != -1) 
return(conintCret3); 

else 

printf ("Invalid CND field Line %d0, Inum); 


/* Decode index field */ 


idxdec(idx) 

char *idx; -C 

int ret; 

if ((idxC03==’*')&&(idxC1D==’0’)) return(O); 
if ((ret=lookup(idx,.idxtab)) *= -1) 
return(ret); 

else 


> 


printf ("Invalid IDX field Line %dO,lnum); 


/* Decode return jump field */ 
rjdec(rj) 

char *rj; -C 

int ret; 

if((rjC0>='*')g&.(rjC1>=’0')) return(O); 
if ((ret=lookup(rj,rjtab)) != -1) 
return(ret); 

else 

printf ("Invalid RJ field Line %dO,lnum); 



/* Decode muLtipLy field */ 


muUdecCmuLt) 


> 


char *fnult; t 

int ret; 

if ((multC03=='*')&&(jnuLtC1]=='0')) return (0) ; 
if (<ret=Lookup(muLt,muLtab)) i= -1) 
return(ret); 

else 

printf ("Invalid MULT field Line %d0,lnum) 


/* Decode input .output operation field */ 
iopdec(iop) 

char *iop; -C 

int ret; 

if((iopC03=='*')8&(iopn3"'0')) return(O); 
if (Cret=lookup(iop,ioptab)) != -1) 
return CiopintUretH); 

else 

printf ("Invalid lOP field Line %d0,lnum); 

> 

/* Decode general I/O field */ 


iodec(io) 


> 


char *io; < 

int ret; 

if((ioi:o:~'*')&&(ioCi:=='0')) retum(O); 
if((ret=Lookup(io^iotab>) f= ~1) 
return(iointCretll); 

else 

printf ("Invalid 10 field 


Line %d0,lnum); 


/* Bui Id word 1 for sh and tr */ 
decK) -C 

out1 = (alu«12) ( (srOdecO) jsrldecO; 

> 


/* Decode source codes */ 
srOdecO -C 

int ret; 

if((sr0C0:=-'*')Sa(sr0[:i:=='0')) return(O); 
if ((ret=lookup(srO,srctab)) l= -1) 
if (srOintCretD !=-1) 
return (srOint Eret3); 


else 
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printf ("Invalid SOURCE (Bus 0) field Line Xd0,lnum); 
else 

printf ("Invalid SOURCE (Bus 0) field Line /£dO/lnum); 


srIdecO -C 

int ret; 

if ((sri:o:~'*')&S(sr1C13==’0')) return(O); 
if ((ret=lookup(sr1,srctab) ) != -1) 
if (srIintCret!] !=-1 ) 
return(sr1 intCr.etl); 

else 

printf'C'Invalid SOURCE (Bus 1) field Line XdO^lnum); 
else 

printf ("Invalid SOURCE (Bus 1) field Line XdO^lnum); 


/* Find a Label in the symbol table, return its value. */ 

findx(Lable) 

char , *.Lable; -C 

int i,j;. 
for (i=0; i<=tabin;i++) -C 

for (j=0; lableCjn !='0'; j++) 

if (labLeHjll !=symCiD.idCjH) • 

/* As soon as there is no match, try next entry */ 

goto nomatch; 

out1=symCi3.add; 
nomatch: ; 

> 

> 

/* Build' word 0 for tr apd tc instructions ■'*/• 
decOO -C 
> 

/* Decode destinations */ 
dOdecO -C 


out0=(car«1A) |d0dec() | d.ldecO; 


i nt ret ; 

if((d0LO:=='*')&&(d0Cl]“'0')) return(O); 
if ((ret=Lookup(dO,dOtab)) != -1) 
return(dOintCretli); 

else ^ 

printf ("Invalid DESTINATION (Bus 0) field Line %dO,Lnum); 
printf ("It got to here, the value for dO is Xc 0,dOCO]); 


dIdecO -C 


int 


ret; 



i f C ( d1 COD== ! * ' ) &S c d1 Cl. 3== 1 
i f ^ ( retfCoqkuR (d1 ^d1 tab) ) 

' “ return CdlintCretn’ 

printf C-’InvaLid DESTIf^ATIC 


0!)) retqrn^O); 


'J (Bus 1) -fieLd 
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APPENDIX 5 

IMPLEMENTATION OF THE MAXIMUM LIKELIHOOD CLASSIFIER 
ON A FLEXIBLE PROCESSOR 


A, Initialization of the FPs by the Host Computer 

B. Interrupt Routine for Flexible Processor 

C'. -Overview of Maximum Likelihood Classifier Flexible Processor Algorithm 

D. . Flowchart- of Floating Point Addition Routine 

E. Flowchart of Floating Point Multiplication Routine 

F. Flowchart of Floating Point Compare Routine 

G. Actual Flexible Processor Program- for Maximum- Likelihood Classification 



A-a-4=o 




;INI0ALHAiDION (OF THE TRs -'BY THE =HOST ;60MRUTER 


T, In.itianiize imemory <to zeroei.’ 

2. Send ^FP ,s4ze, ip, 'si.gma, X, andiU. 

3. 'CaTculate det(s,igniai) 

'4. iCailcuTate ,inv.'{:s1gma!) 

‘5. ‘Calculate (In(>det'G'siigma-)’) 

'6. iCal.cuTatd 

7. ;Send ?FP -1 n:tp'(wi) ■), - sTnC-dettsisIgmai)-) •* ;5 


l8. Send :FP inv{sTgma) 
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C.l . Load Data Into FP. ' 


1) Zero all registers. This includes all in- 
dex registers, index compare registers, large file 
address registers, maintenence compare registers 
and temporary file address (both read and write) 
•registers. 

2) Read the first number and store it in re- 
gister F. 

3) Copy the number stored in the F register 
into the index compare registers number 0 and 1. 
(This number is the dimension of sigma.) 

4) Load all conditions. (This means that the 
ind.ex compare registers are going to test for 
equality to n . ) Index register three will check 
for equality to zero. 

5) Test and increment Index register three. 
If it is not equal to zero read a number, load it 
into the F register. 

6) Move the reregister to temporary file zero 
while incrementing the write counter. 

7‘) If index register 0 does not equal* go 
to .step 5 . 

8) . . Zero all index registers while moving n to 
the P register of the multiply while trapping In- 
terrupts., (This can be done using the "sr” com- 
.mand.) 

9) With interrupts trapped, move multiply 
output to condition .register 2. (This means that 
the condition registers are now set to check for 
index registers . 0 and 1, equal to n, index regis- 
ter 2 equal to n squared and index register 3 
equal to zero.) 

10) Test and increment index register 2. If it 
is n squared, exit. 

11) Read a number, store it in large file 
zero, while simultaneously incrementing its ad- 
dress buffer. 


12 ) 


Jump to step 1.0 



/ 7 ^ 
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C.2. Storage Format 


The Storage format used In the processing scheme 
is as follows: 



Temporary files 

Large' Files 




n 

Sigma [1 , 1 ] 

First Covariance 



Hold 

Sigma [2 ,1 ]' 

Matrix. 

normal,ixed 

data 

X[l,l] 

: 


vector for 


X[l,2] 

Sigma [ n , 1 1 


class one 


X[l,3] 

Sigmal 1 ,2.1 




X[l,4] 

• 

• 


normalized 

da ta 

Y[l,l] 

Sigma [ 2 , n]' 


vector for 


Y[l,2] 

•< > 

• 


class two 


Y[l,3] 

Sigma[n , n] 




Y.[ 1 , 4 1 

• 





Sigma[n,n] 
Sigma[l ,1] 

Second .Covariance 




Sigma[2,ll 

Sigma [ n , 1 ] 
Sigma [1,2] 

Matrix 




Sigma[2 , 1] 

* 

Sigma [ 2 , n]' 

• 





• 

Sigma [ n , n] 




mean vector 

f o.r U[l,l] 



class one U,[l > 2 ] 

U[l,3] 

■U[.l,4] 

mean vector for V[l,l] 
class two V[l,2] 

VU,3] 

V[l,4] 

ln(p(w).)-ln(det{sigma).)*.5 K[1 ] 

K[2] 
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C.3. First Matrix Multiplication 


1) Initialize all registers. Move 1 to the 
read address of temporary file zero. Zero all oth- 
er index registers, large file addresses, tem- 
porary file addresses, 

2) Move temporary file' 0 to the E register 
(while incrementing the read address pointer.) 

3) Move large file 0 to the G register (while 
incrementing the address- pointer.) 

A) Call floating point multiply routine, 

5) Store result in temporary file 1, while 
increasing the write pointer. 

6) If index 0 is n, jump to the subroutine 
called sum. 

7) If index 1 is n, jump to the next multiply 
routine . 

8) Increment index reg 0. 

9 ) Go to step 1 . 

10) Increment index 1 by 1 . 

11) Zero F register. (This is used as the ac- 
cumulater for the floating point add.) 

12) Zero index register 0. 

13) ' Zero temporary file 1 read address. 

lA) Test and increment index 0. If it = n, go 

to step 16. 

15) Call floating point add' subroutine. (40 
cycles.) (this routine has been modified to incre- 
ment the temporary file 1 read pointer as it goes 
along, so this is not necessary.) 

16) Go to step 14. 

17) Temporary file 0 pointer = 1. 

18) Store f in large file 1 (while increment- 
ing the pointer.) (F contains the result of the n 
floating point adds.) 

19) Return to calling routine 



C.4. S'econd Matrix Multiplication 


=1 ) Ze.r.o all pointers to large files and tem- 

porary file 1 ad d.r ess. 

2) Write a 0 to temporary file address 0. 

3) Transfer temporary file zero memory Toca- 
-tipn 0 to index register 3. 

4) Test and decrement register 3. if zero go 
to w.ra.p up. 

5) ‘While incrementing -the, .pointer, .to tern- 

.por.ary file 0, move tihe content^ to the regis- 
ter. . ■ 

'6) While incrementing the ,polnjte-r latge 

file 1, move the contents to t,he G register. 

7. ) Call the floating point multiplication 

routine. 

8. ) Call .the floating point add routiine. 

9) Send the result to temporary fiLe -1. 

10) Go to step 4. 


ORIGINAL PAGE IP 
OF POOR QUALITY 
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floating Pt7\ 
addn. routine) 



strip signs 
and save 
for 

later use 


D. FLOATING POINT ADDITION ROUTINE 
F = E + 6 


of the 
numbers 


return othen 
number J 


yes reverse 
the 

numbers 


al ign 
b1 nary 
points 


E<0 and 
vG>0? . 


result = G-E 
normal ize 
result 
return 


result = E-G 
normalize 
result 
return 


result = E+G 
normalize 
result 
Sng (result) 
old Sgn(E) 
return 
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E. FLOATING POINT MULTIPLICATION ROUTINE 
F = E + G 
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/fS 


F. FLOATING POINT COMPARE ROUTINE 



E = max (E.6) 

F = 1 if E •= G 
*= 0 if E G 
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G. 


Actual Flexible Processor Program for Maximum Likelihood Classification 


org 001a 

* Average time: 612 cycles per pixel (down 10%) 

* min time: 21e cycles per pixel (down 30%) 

'k^'k'kic-k-k'k-k’k’kic'kirk'k'kirk-k-k'k-k'kicic'k'k’k'k-k-k-k-k-k-k'k-k'k-k'k^'k-kicirk-k'kicirk'k'k'k-k'kirk'^'k'k 

*****BAYES maximum likelihood classifier VER. 021580 2:50**** 

*****For TWO PIXELS **** 

************************************************************** 
tc * * * * fplr mar nop 

tc * * * * $ 0000 * * ' 

************************************************************** 

* first interrupt routine. This routine handles the inte.i — * 

* rupt to load the covariance matrices, the mean vectors * 

* and the data vector. * 

************************************************************** 


org 001 e 

tc * * * * vinr mar nop 

tc * * * * ' $ 0000 * * 

************************************************************** 


* this' routine will handle the interrupt when the host just * 

* needs to enter. the data vector. * 

************************************************************** 

org OOfe 

tc * * * * $ 0000 * 

************************************************************** 

* there values are to be loaded into compare register 3. * 

* These will test the respective registers for inequality to * 

* their compare registers. * 

************************************************************** 

tc * cla * * $ 000a tOwa t1wa 

tc * * * * $ 0001 tfOn tfin 

* this will clear all of the. index registers and zero the * 

* temporary file write addresses. * 

************************************************************** 


tc * * * * $ 0000 nop cmrO 

************************************************************** 

* This will clear the temporary file 0 read address and the * 

* condition register to prevent spurious results. * 

************************************************************** 


tc * * * * $ 0000 nop cmr2 

************************************************************** 

* this will zero the other condition register and the temp * 

* file read address. The dimension of the incoming data is * 

* assumed to be 4X4. If thematic mapper data is to be used * 

* the matrix will be five by five. * 


tc * 


$ 0004 


fO 


icr3 


* * 



************************;************************************** 

* This wiLL store N in the index compare registers, * 

************************************************************** 

tr * * * * * nop nop fO icrl 

,tc * * * * $ 0010 nop icr2 

************************************************************** 

* this is just setting up the counter variables for the Loop.* 
************************************************************** 


wait tc 

* 

* 

* 

•k 

wait 


mar 

nop 

tc 

* 

* 

* 

* 

$ 0000 


brgO 

br.g1 

tr 

* 

* 

* 

pupu * 


mult 

eO * 

* 


************************************************************** 

* the host will start execution at 100 and wait here for the * 

* host to interrupt the FP, at which point the FP will do a * 

* program jump to $0007, where there will be a jump to the * 

* correct routine. * 

************************************************************** 

* This is the wait routine, which waits for an interrupt. * 

************************,********,****************************** 

* 


*****************************Beg i n Rout i ne*********************************** 
fpmr tr * * * * e a1 eO aO q 

************************************************************** 


* Load multiplicand 


'k'k'kiicirkidc'k'kirk'kirk'k'kicitirk’k'k'kic'k'k-k'k’k^k'k’kicit'kici^'kicic'kicic'kieirk'kit'k’kirk'kicie’k'kizic’k 


tr * 


aO 


* load multiplier 


tc * 


$ 0004 


tc * 


$ 0002 


a1 


gO 


************************************************************** 


************************************************************** 


cmrO 


************************************************************** 


* this condition will check to see of fO < 0. * 

************************************************************** 


cmr3 


************************************************************** 
* is indexO = compare register 0? * 

************************************************************** 


tr 

* 

cLO 

★ 

puqu 

add 

a1 

* 

aO 

f1 

tr 

* 

* 

■k 

puqu 

★ 

mult 

fO 

f1 

el 

tr 

* 

* 

k 

* 

* 

* 

* 

fO 

icrO 


************************************************************** 
*If the value returned is zero, zero both registers, return* 
************************************************************** 


tc ad * jp * $ 0000 fO f1 

tc ad * df * $ 0000 * * 

************************************************************** 

* If fO is justified, return. The product is normalized. * 


tc 

* 

* 

* 

* 


$ 0000 


* 


cmrl 

tc 

tnn 

* 

3P 

* 


$ 80ff 


gi 


* 

tr 

tnn 

* 

df 

* 

and 


aO 

* 

a1 

f1 


************************************************************** 
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* Save the exponent in g1, clear El for a counter * 

ieic'kicic^icicicic'k'k'k'k'k’kic'kic’k'kic'k'k'k'k'k'k'k-k'kic'k’k'k'k'k'k'kic'kic'k'kit’kic'kic'k'k'kicicic-k’kic’kisic'k 

tr * * * * zro f1 g1 • aO el 

tr * cLO * * zro aO eO * * 

************************************************************** 

* By here, product cannot be zero, The normalization process * 

* will take less than four repeats of this loop. If it ever * 

* takes more, there is something branching directly to this * 

* process. * 

************************************************************** 
nrm tr fnn inO * * e+1 aO eO a1 * 

sh fnn * * * * nzin Izin nzin s 

************************************************************** 

* By now, the result must be normalized!!!!! * 

************************************************************** 


tr * 

* 

* 

* 

g 


aO * 

a1 

f1 

tr * 

* 

* 

* 

e 


aO g1 

a1 

gO 

tr * 

* 

* 

* 

* 


fO eO 

f1 

el 

sh * 

* 

* 

* 

•k 


Icir Icir 

Lzin 

s 

tr * 

* 

* 

* 

e-g 


aO eO 

a1 

el 

************************************************************** 

*This will 

take 

the normalized 

result. 

shift it left. 

adjust 

* 

*the expontent. 

so 

that 

it agrees with 

the mantissa. 


* 

************************************************************** 

tc * 

* 

* 

•k 


$ 01 ff 

gi 


* 

tc * 

* 

* 

■k 


$ ffff 

* 


gO 

tr * 

* 

jp 

* 

acb 


aO * 

a1 

fi 


************************************************************** 

* this will "mask off" any carries into the unused portion of* 

* the exponent. * 

************************************************************** 

sh * * df * * nzin rcir nzin s 

* 

*****************************£n(j Q-f Rout i ne*********************************** 
* 

*********************Begin Routine**************************** 

* This routine does the initial setup of the variables * 

icic-kicieicie-kic'kicic^icic'k'kic’k'k-k’k'k-k’k-k’k^'k^'kic'k'kic-k-k'kic-k-k'kicic'kic'k'k-kie'k-kic-k-k-k-k-k-kic-k-k 

★ 


lOad 


Had 


fplr tc * cl2 * * $ 0000 

'k'k'k'kic'kic'k'kieicicicieicie'k'krk'kic-k-k-kic'k'k-k'k-k'k'k'k'k'k'k'k'k'kicic'kic’k'k'k^'kic'k'k'kic'k'kic’k'k’kic'kic 

*this clears all the index registers and the large file write* 

* pointers. * 

************************************************************** 

tc * * * * $ 0100 nop icr2 

tc * * * * $ 0010 nop cmr3 

****************************** 4 ;******************************* 

* the 0010 tests for index2 <> its compare. * 

*This will Load the compare register to check for index * 

*regiter equal to its stored value. * 

************************************************************** 
*This Loads the temporary file with the octal location of the* 
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*mean vector. * 

************************************************************** 
tc * * . * * $ OODO fO * 

io * * * * * ' fO * ds Lsb * * * * 

************************************************************** 

*T.his Loads the bank and address Location of the covariance * 

*matrix • * 

************************************************************** 

* 

* 

********************************End Rout 1 ne********************************* 
* 


* 

********************************Begin Routine********************************* 

* This routine Loads the covariance matrix. * 

A************************************************************* 

imr io * in2 *** **{lsr*** 

tr * * * * * zO f 0 zT . f 1 

★ik************************************************************ 

* this Loads the mantissa into the f1 register. * 

* . and Loads the exponent into the fO register. * 

************************************************************** 

tc ad * * * imr mar nop 

tr * * * * * fO LfOu f1 Lf1u, 

****************************Erid ■ Rouf i ne******^********************* 

* 

* 

****************************3eg i n Rout i ne********************* 

* This is the routine that Loads the mean vectors. * 

* This routine Loads aLL 16 mean vectors at once. * 

******** 1 ***************************************************** 
mnr tc * cL2 * * $ 0010 nop . icr3 

imhr tr * in2 * * * zO fO z1 f1 

************************************************************** 

* This does the i/o caLL and Loads the number into the f0-f1* 

* register pair .* 

* This does the i/o caLL for the next number ' . 

★A************************************************************ 

sh * * * * * * Ln31 * s 

************************************************************** 

* this shifts the mean vector to the Left, and negates- the * 

* sign bit. ■ * 

************************************************************** 

sh * * * * * * rcir * s 

************************************************************** 

* * 

*This negates the sign of the mean vector and shifts it in to* 

*the sigh position. This is done because the- vector mantissa* 

*is in SSH form. This way, an addition to the vector wiLL * 

*actuaLly perform the operation of siibtractihg the vector * 

*from the addend. * 

'kicie'kicicificicicic'k'k'k'k'k'k'kieicicic'k’k'k^ie’k-k'k'k'k'k’k’k'k'k'k'k'kieie'k’kiic'k^’k'k'kic'k'k'k'k'k'k'kic'k’k’k 



A-123 


* 

io***** * * dsr** * 

************************************************************** 

*This does the i/o caLL for the next number (if there is one)* 
************************************************************** 
tc ad * * * imnr mar nop 

tr * * * * * fO LfOu f1 Lflu 

************************************************************** 

*Load the next element in the vector, and store the new value* 
************************************************************** 

*Load precomputed constant for each class (8 cycles, not In code) 
*********************************End Rout i ne******************************** 

* 

* 

*********************************Beg in Rout i ne******************************** 
★This routine loads the normalized the data vector. It can * 

*be called to execute by itself. * 

************************************************************** 

* 

tc * * * *. $ 0004 * icr3 

vinr tc * * * * $ 0040 nop cmr3 

************************************************************** 

* the 0040 tests for index 3 <> its compare (4 elements of * 

* the data vector.) * 

************************************************************** 


tc 

* 

'k 

* 

* 


$ OOQa 


tOwa 

t1wa 


tc 

* 

cl3 

* 

* 


$ 0151 


fO 

nop 


io 

* 

* 

* 

* 

* 


fO 

* ds 

Isb * * 

* 


************************************************************** 

* This initializes the location of the read pointer. * 

* and this initializes the first read. * 

-kiticic-kicieiiic-kicif'k'k'k'kic'k'k-ic-kie'k'k'k'k'k'k'k'k'k'kicic-kiciciicif'kitii-k'k'k'k'k'k'k-k'k'k'k'k'k-kie-k'k-k-kic 

TO ****** * * ds r * * * 

•k'kifi^i^icicicicic’k'k'k’ie^'k^'k'kif'k'k'k'k'k'k'k'k'kie'k'k'k'k'k-kic'kic^ie^iic'k'k'k'k'k'it'k'kieiz-k'k'k^-kic-kie'k 

★This sets the large file hold registers to a minimum value. * 
************************************************************** 


tc 

* 

* 

* 

* 


$ 014f 


lOad 


Had 

tc 

* 

* 

* 

* 


$ 8Q7f 


* 


f1 

tc 

* 

* 

★ 

* 


$ ffff 


fO 


★ 

tr 

* 

* 

k 

* 

* 


fO 

IfOu 

f1 

lflu 

tr 

* 

* 

★ 

* 

* 


fO 

IfOu 

f1 

lflu 

loip tr 

* 

in3 

★ 

* 

* 


zO 

tfOu 

Zl 

tflu 


************************************************************** 

* this loads the mantissa and exponent into the temp file * 
************************************************************** 


* The following does the I/O call. 

'io***** * * ds r** * 

* 

* This is executed before the jump and it will load the needed data into 

* the z0-z1 register pair before it is neeeded, eliminating a two cycle 

* not ready wait. 

* 
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)gf 


tc 

ad 

* 

* 

* 

Loip 

mar 

nop 

tc 

* 

* 

* 

•k 

$ 0000 

brgO 

brgi 

tc 

* 

* 

* 

* 

$ 0006 

tOwa 

tlwa 

tc 

* 

* 

k 

* 

$ 0000 

tfOn 

tfin 


•k 

* the 0 in Location 6 of the temporary files is a cycle counter. 

* it keeps track of the class currently being worked upon. 

* 

* After normalizing the data vector, store it, repeat until all 

* the elements are finished, then repeat the cycle until all four elements 

* are finished being processed. 

* 


tc 

* 

* . 

* 

* 


$ 000a 


tOra 


tira 

tc 

* 

cl3 

* 

* 


$ 0002 


tOwa 


t1wa 

tc 

* 

* 

■k 

* 


$ 0151 


lOad 


Had 

lo1p tr 

* 

in3 

* 

* 

* 


tfOu 

brgO 

tflu 

brgi 

tc 

* 

* 

sr 

* 


fpar 


mar 


* 

tr 

* 

* 

* 

* 

* 


IfOu 

fO 

lf1u 

f1 

tc 

* 

* 

* 

* 


$ 0040 


* 


cmr3 

tc 

ad 

* 

* 

* 


loip 


mar 


* 

tr 

* 

* 

* 

* 

* 


fO 

tfOu 

f1 

tflu 

tc 

* 

cl3 

* 

* 


S OQOa 


tOra 


t1 ra 


* 

* This stores the data normalized data vector in locations 2-5 of the 

* temporary file. The second vector will appear in locations 6-9 of 

* the temporary file. 

* 

* This will fall thro,ugh to the matrix processing routine. 

* 

* 

* 


* This is the beginning of the matrix multiply routine. 

k 


stra tc 

* 

cla 

* 

* 

$ 0000 


brgO 


brgi 

tc 

* 

k 

* 

* 

$ 0006 


tOfa 


t1 ra 

tr 

* 

k 

* 

* * 


tfOn 

P 

* 

k 

tc 

* 

k 

k 

* 

$ 0010 


* 


q 

tc 

* 

*- 

k 

Plql 

$ 0000 


k 


nop 

tr 

* 

* 

k 

plql * 


mult 

LOad 

mult 

Had 

tc 

* 

* 

k 

k 

$ 0001 


tOba 


tiba 

tc 

* 

* 

k 

k 

$ 0001 


tfOu 


tflu 

tc 

* 

* 

k 

k 

$ 0002 


tOba 


tiba 

mlty tr 

k 

in1 

k 

k k 


tfOu 

eO 

tflu 

el 

Vi 

* This 

loads the 

! multiplicand 

1 into the 

eO-el register 

pair. 


tc 

* 

★ 

* 

sr 

* fpmr 



mar 


nop 


* This does the program jump to the floating point multiply routine. 

•k 

* 


tr * * 


* * 


* 


Lflu g1 .IfOu gO 
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•k 

* This step is done before the jump is actuaLLy executed. This wiLL Load the 

* muLtipLier into the g0-g1 register pair. (F=EXG floating point muLt) 

* 


tc * * sr * fpar mar nop 

* 

* This step will do a jump. to the floating point addition routine. This rout- 

* ine calculates the sum of the contents of the F register and the BRG regis- 

* ter pair. The result of the add is then stored in the F register. 

* 

tc * * * * $ 0004 nop icrl 

tc * * * * $ 0004 nop cmr3 

* the 0004 tests for indexi <> its compare 

■k 

* 

* This is executed before the jump. It will just load the condition register 

* with the next condition to be tested. 

* 

tc ad * * * mlty mar nop 

tr * * * * * fO brgO f1 brgi 

* 

* On index register 1 not equal to its compare, jump to beginning of multiply 

* routine. 

* 

* 



tc * 

* 

* * 


$ 0001 


tOba 


tiba 


tr * 

* 

★ * 

* 


tfin 

eO 

nop 

nop 

* 

get address 

i of jth 

item 

in the 

data vector. 





tr * 

* 

* * 

acO 


a1 

tfOd 

aO 

tfid 


tr * 

* 

* * 

acO 


aO 

tOra 

aO 

tira 

* 

tr * 

★ 

* * 

acO 


a1 

* 

aO 

tira 


* the above was a change to insure that the program works, this is kept. 

* this will update the address for the next round, store it, and point to the 

* item in question. 

* 

tr * in2 * * * tfOc eO tfic el 


* this will load the multiplier for the second multiply into the e0-e1 reg- 

* ister pair. Simultaneously, this will zero the temp file pointers. They 

* will now point to the location of the accumulator. 

* 


tr * 

■k 

* * 

* 

bsrO 

gi 

bsri gO 

tc * 

* 

sr * 

fpmr 


mar 

nop 

tr * 

* 

* * 

g 

.aO 

gi 

a1 gO 

this is 
f=EXG 

just 

a subroutine jump to the 

floating 

point 

multiply rout 

tc * 

* 

sr * 

fpar 


mar 

nop 

tr * 

* 

* * 

★ 

tfOn 

brgO 

tfin brgi 
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/f/ 


* F=F+BRG. This calculates the subtotal of the matrix multiply. 

* 



tr * 

★ 

k k k 


fO 

tfOn 

f1 

tfin 

■k 

tc * 

* 

* * 

$ 0002 


tOba 


tiba 

* 

The above 

two 

steps load 

the sub total 

into the tem.porary 

file location 

* 

zero. It 

them resets the 

read and write pointers of 

the temporary file 

* 

location 

two. 








tc * 

★ 

* * 

$ 0004 


nop 


icr2 


tc * 

* 

* ★ 

$ 0010 


nop 


cmr3 

* 

the 0010 tests for index2 # its compare. 




* 

ic 

This will 

do . 

a test for index 0 not equal, to 

its compare register. 


tc ad 

cl1 

* * 

mlty 


mar 


nop 


tc * 

* 

* * 

$ 0000 


brgO 


brg1 


tr * 

* 

* puql * 


* 

* 

mult 

mcf3 


tc * 

* 

* * 

$ 0000 


tOba 


tiba 


tc * 

* 

★ * 

$ 01 4f 


lOad. 


Had 

■k 

Add precomputed constants 

(.150. cycles, 

not In code) 



* 

'ip 

This IS the, compare routine. 





/V 

tc * 

* 

* k 

$ ODOO 


tOba 


tiba 


tr * 

* 

k k k 


tfin 

g1 

tfOn 

gO 


tc * 

* 

sr * 

f cmp 


mar 


* 


tr * 

* 

k k k 


If On 

eO 

Ifin 

el 

★ 

here, if 

G > 

E, (f0=f.l = 

0). return tf1H60 as 

the class (to 

location 150) 


tr * 

clO 

k k k 


* 

k 

f1 

icrO 


tc * 

* 

•k k 

$ 0002 


k 


cm r3 

* 

this will 

increment tf0niI6I, the pointer to thts .array. 



tc * 

* 

k k 

$ 0006 


tOba 


tiba 


tr ad 

* 

k k k 


tfOn 

eO ’ 

* 

* 


tc ad 

clO 

k k 

chck 


mar 


* 


tr ad! 

* 

* * e+1 


aO 

tfOn 

k 

* 


tr * 

* 

k k e 


aO 

IfOu 

a1 ■ 

Iflu 


tr * 

* 

* * * 


tfOn 

IfOu 

tfin 

iflu 


tr * 

* 

k k k 


tfOn 

eO 

* 

* 


tr * 

* 

k k e+1 


aO 

tfOn 

k 

* 

chck tc * 

* 

* * 

$ 0010 


* 


icrO 


tc * 

* 

* * 

$ 0001 


* 


cmr3 


tc * 

* 

* * 

$ 0004 


P 


* 


tr * 

k 

* *, * 


★ 

k 

tfOn 

q 


tc * 

k 

* plql 

$ 0151 


k 


gO 


tr * 

k 

* plq.l * 


mult 

eO 

tfOn 

idxO 


tr * 

k 

* * add 


aO 

lOad 

ai 

★ 


tr * 

k 

* * add 


a1 

k 

aO 

Had 


tc * 

k 

* * 

$ 0000 


tOba 


t1ba 


to * 

k 

* * 

$ 0000 


tfOu 


tfi'u 
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tc 

•k 

* 

* 

* 


$ 0001 


tfOu 


tflu 






tc 

adn 

* 

* 

* 


lolp 


mar 


* 






tc 

★ 

cLO 

* 

* 


$ 0000 


eO 


el 





finl 

tc 

* 

* 

* 

k 


$ 0150 


LOad 


LI ad 





otpt 

io 

* 

* 

* 

k 

k 


* 

LfOd 

ds 

u 

*■ 

k 

k 

k 


10 

■k 

* 

* 

* 

k 


LfOd 

* 

ds 

w 

★ 

k 

k 

k 


io 

* 

k 

* 

* 

k 


k 

LfOd 

ds 

w 

k 

k 

k 

k 


10 

* 

k 

* 

* 

k 


LfOd 

k 

ds 

w 

k 

k 

k 

k 


tr 

* 

k 

* 

pupu 

k 


muLt 

brgO 

* 

* 






tc 

* 

k 

■k 

k 


wait 


mar 


nop 





* 
















* 
















* 

















****************************Encj Rout i no**************************** 

* 

* 

* 

***ir********************l 3 gg •] n rout i ns************************************** 
****************************Beg i n Rout i ne**************************** 


k 

k 

This is the floating point addition 

routine. 9/4/79. 3; 

;45:00. 

fpar 

tr 

* * 

* 

* 


* 


bsr1 g1 

f1 

el 


sh 

uns cLO * 

* 


* 


Lzin nzin 

lzin 

s 

k 

sh 

* * 

* 

k 


* 


rzin nzin 

rzin 

s 

k 

This wiLL 

Strip 

the sign of the 

mantissa 

and save 

it for future use 


tr 

k k 

k 

k 


* 


* 

* 

bsrO 

icrO 


tc 

tnn * 

k 

k 


$ 0000 



* 


cmrO 


tc 

tnn * 

k 

k 


$ 0010 



* 


cmr1 


tr 

tnn * 

jp 

k 


* 


* 

* 

* 

* 


tr 

tnn * 

df 

k 


* 


k 

k 

•k 

* 


tr 

* * 

* 

k 


zro 


aO 

k 

a1 

cmrl 

* 

k 

this wiLL 

compare 

the brg to zero. 

if it 

is, return. 



tr 

* * 

* 

k 


zro 


aO 

eO 

a1 

gO 

* 

This wiLL 

zero the 

registers to 

prevent spurious 

results 

* o 

ic 

tr 

* * 

* 

k 


e-g 


aO 

nop 

a1 

icrO 

* 

if 

|e|<|gl 

f the 

program wiLL reverse the 

numbers 

and continue. 

* 

since addition is 

commutative. 

this 

shouLd not affect the results. 


tr 

* * 

* 

k 


xor 


a1 

eO 

aO 

nop 


tc 

k k 

* 

k 


$ 0080 



k 


gO 


tr 

k k 

★ 

k 


and 


a1 

k 

aO 

gO 


tc 

k k 

* 

k 


$ 8000 



eO 


* 


tr 

k k 

* 

k 


e-g 


a1 

★ 

aO 

go 


tc 

k k 

* 

k 


$ 0010 



★ 


cmrO 


tc 

fnn * 

* 

k 


ORIGINAL PAGE 


* 


n-p POOR QUALITY 



* ■* 


* If the exponent on one of the two numbers is Less than zerq 

* and the other is not, subtraction to yield the number of shifts 

* will not yield the correct answer, and thus special handling 

* must be added to compensate for this problem. The way that this 

* routine handles the problem is it exclusive ors the two numbers 

• * together and then strips qff everything but the sign bit. This 

* is then subtracted from a constant (for speed). Jhe constant is 

* 8000, thus if there is a 1 in the sign position, the result will 

* not be negative, indicating that the correction must take place. 

* 

tc tnn * * * $ 0020 * cmrO 

tr * * * * e~g a1 g1 * * 

* 

* This will test for E-G->G negative. This is to insure that jbrg| >= 

* }f|, simplifying the algorithm greatly. 

* 

tc tnn * * * swap mar nop 


This involkes the swap routine that will force fhe above to be true. 

* 

tr * * * * zro * * aO cmrO 

tc * * * * $ 0010 * cmrl 


* the zeroes that are loaded into condition mask register 0 fell 

* the machine not to check for any of the conditions represented. 

* the 0010 loaded into cmr1 tell the machine to check for the compare 

* register greater than index register one. In this case, this will 

* determine whether the two numbers ar^ equal or equal and opposite in 

* magnitude and sign. 

* 



tr 

* * * 

* 

zro 

aO 

gl 

a1 

el 


tc 

tnn * * 

* 

equl 


mar 


nop 

* 

* 

If 

they are. 

the 

program .will jump 

to a special 

routine 

• 

* 

* 

■k 

By 

this point 

in 

the program, ;|e|>i 

g(* 





•t,r 

* * * 

* 

* 

bsrO 

eO 

fO 

gO 


tc 

* * * 

* 

$ 0010 


* 


idxO 


tc 

* * * 

* 

$ 0020 


* 


cmrl 

JL. 

tc 

tnn * * 

* 

rtnf 


mar 


nop 

* 

If 

the number 

of 

shifts required > 

16, return the value 

in the 

* 

ic 

F register. 








tr 

★ * * 

* 

zro 

a1 

gi 

aO 

cmrl 

* 

* 

tc 

* cLO ■* 

.* 

$ 0D01 


* 


cmr3 

this loads, the data to be .processed 

and it 

programs the 

CPU to check 


* for reg0#indx0. This. is represented by a one in the first position. Thi 
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* 

* 


check is invoLked by the AD command. 


shft sh * 
tc ad 


inO * 

★ ic 


★ 

* 


* 

shft 


rzm 


nzm 

mar 


nzm 


s 

nop 


* 

* 

* 

* 

* 


Index register contains the amount by which G>E, (the number of .orders 
of magnitude. This routine shifts E to the right until the two orders of 
magnitude are equal. 



tc * * k k 

$ 0000 


gl 

* 


tc k k k k 

$ 0020 


* 

cmrO 


tc fpn * * * 

gpos 


mar 

nop 

* 

if g1 >= 0, its 

sign is taken to be 

positive, and the numbers i 

* 

* 

handeled in a corresponding manner. 




* 

* 

By this point, g 

must be negative. 





tc * * * * 

$ 0002 


,* 

cmrO 

"k 

tc tpn * * * 

ssgn 


mar 

nop 

* 

If E is negative 

, and G is negative 

, the signs are the 

same anc 

k 

two numbers are 

just added and one 

of the 

signs is preserved. 

n 

tc * * * * 


* 

k k 

* 

★ 

* 

At this point, 1 

G|>1e 1, the resultant sign 

will be that 

of G. 

* 

Without regard to sign, the result 

will be 

the old sign 

of G 

* 

-A- 

plus lg-e|. 





dsgn tr * * * * 

en 

aO 

eO * 

* 


tr * * * * 

e+1 

aO 

eO * 

* 

«A» 

tr ■* * * * 

add 

f1 

eO aO 

go 

* 

.1 

This calculates 

g-e. 





tc * * * * 

$ 0010 


* 

cmrO 

k 

If the result is 

>= zero, there is 

not a one in tthe first bit 

* 

so the number is 

not normalized, and must 

be shifted until the 

* 

a M* in the first bit position. 




X 

•norm 

tr fnn * * * 

e-1 

aO 

eO * 

* 


tc fnn * * * 

norm 


mar 

nop 


sh fnn * * * 

* 

nzin 

nzin Izin 

s 

X 

* 

This routine normlizes the data 





tr * •* * * 

9 

aO 

fO * 

* 


tc * * * * 

$ 80ff 


■k 

gO 


tr * * * * 

and 

* 

* aO 

f1 
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tc 

* 

* 

* 

* 


$ 

0002 


■k 


cmrO 

sh 

* 

* 

* 

* 

* 



nzin 

Izin 

nzin 

s 

sh 

tpn 

* 

* 

* 

* 



nzin 

roin 

nzin 

s 

sh 

fpn 

* 

* 

* 

* 



nzin 

rzin 

nzin 

s 

tc 

* 

* 

jp 

* 


$ 

0000 


* 


■k 

tc 

★ 

* 

df 

* 


$ 

0000 


* 


* 


* this routine sets the sign to the sorrect sign and returns to the calling 

* routine. 


gpos 

tc tpn * 

* * dsgn 

mar 


nop 


tr * * 

* * * 

* * 

* 

* 

X 

* 

Before the 

jump to GPOS, 

the- condition register was set 

to check for 

★ 

e<0. If it 

is, the signs 

are opposite and the data is treated 

* 

★ 

correspondingly. 




* 

* 

By default 

, both G and E 

have the same sign, so the results are just 

* 

added. 





X 

tr * * 

* * * 

* * 

fO 

gp 

ssgn 

tr * * 

* * add 

a1 g1 

aO 

gO 


sh * * 

* * * 

nzin nzin 

rci r 

s 


tc * * 

* * $ 0010 

nop 


emrO 

* 

this checks for a carry out of he MSB/, indicating 

normalization is 

★ 

necessary. 






tr tnn * 

* * g 

f1 eO 

* 

■k 


tr tnn * 

* * e+1 

aO eO 

* 

* 


tr tnn * 

* * g 

aO fO 

* 

* 


tc tnn * 

jp * $ 

SOff * 


gO 

k 

tr tnn * 

df * and 

* * • 

aO 

f1 

k 

k 

If it is, then the number 

is normalized and the subroutine returns. 


sh * * 

jp * * 

nzin nzin 

tcir 

5 


tr * * 

df * g 

aO fO 

* 

* 

* 

This routine exchanges the two registers involved 

so that i6l>lE| 

swap 

tr * * 

* * * 

f1 g1 

fO 

gO 


tr * * 

* * * 

bsrO fO’ 

bsri 

fi 


tc * * 

* * 

fpar mar 


nop 


tr * * 

* * g 

aO brgO 

a1 

brgi 


* 


* This calls the original routine. 

* 

* 


★ 

* 


This is the action taken when the routines have the same magnitude 
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equl 

tc 

★ 

* 

* 

* 

$ 0000 


nop 


cmrl 


tc 

★ 

* 

* 

* 

$ 0002 


nop 


cmrO 


tc 

fpn 

k 

* 

* 

epos 


mar 


nop 


tc 

* 

k 

**■ 

* 

$ 0020 


nop 


cmrO 


tc 

tp 

k 


k 

ssgn 


mar 


nop 


tc 

fp 

* 

★ 

k 

swap 


mar 


nop 


tc 

* 

k 

•k 

k 

$ 0000 


nop 


nop 

epos 

tc 

fp 

k 

★ 

*. 

ssgn 


mar 


nop 


tc 

* 

* 

* 

* 

$ 0100 


nop 


cmrO 


tr 

* 

* 

* 

* 

e=g 

nop 

nop 

nop-! 

nop 


tc 

tn 

* 

* 

* 

zapp 


mar 


nop 


tc 

•k 

* 

* 

* 

$ 0020 


nop 


cmrO 


tr 

k 

* 

* 

* 

e-g 

a1 

gl 

aO 

nop 


tc 

tn 

* 

* 

* 

dsgn 


mar 


nop 


tc 

* 

k 

* 

* 

$ 0000 


gl 


cmrO 


tc 

* 

k 

* 

* 

dsgn 


mar 


nop 


tr 

* 

k 

★ 

k 

* 

nop 

nop 

bsri 

f1 


tc 

* 

k 

'k 

k 

$ 0000 


•k 


k 

zapp 

tr 

* 

k 

jp 

k 

zro 

aO 

fO 

a1 

f1 


tc 

* 

k 

df 

k 

$ 0000 


nop 


cmrO 

* 

this routine 

handles numbers that 

have different 

exponential 

7C 

nsh 

tc 

* 

clO 

* 

'k 

$ 0010 


nop 


cmrO 


bug in assembler, null Line will not be assembled. By this point 
in the program> the exponent on one of the two numbers must 
be less than zero. This part of the routine will force the negative 
part to be stored in brg register. Since a swap can take place, 
all the original flags must be reset in the event of ashift. 


tr * * 

tc tnn * 

* 

* 

★ 

lit 

g 

glz 

alsw 

* 

mar 

aOrz 

gO 

nop 

The g/brg 

register 

contains the 

negative exponent 

, no 

swap n 

tr fnn * 

k 

k 

k 


f1 

gl 

fO 

gO 

tr * * 

■k 

k 

k 


bsrO 

fO 

bsri 

f1 

t r * * 

* 

k 

g 


aO 

brgO 

a1 

brgi 

tr * * 

★ 

k 

★ 


bsri 

gl 

f1 

el 

sh uns * 

★ 

k 

★ 


Lzin 

nzin 

Lzin 

s 

sh * * 

★ 

k 

* 


rzin 

nzin 

rzin 

s 


This swaps the two tiumbers and resets all the flags needed by the 
rest of the routine. 


tc * 
tr * 
tr * 


$ 0000 


eO gO 

a1sw * aOsw gO 

alrz nop aOrs icrO 


Calculate the number of shifts needed, if it is < 0, it is 
actually > 80 (16), so return the value in the F register. 
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^7 



tc tnn 

* 

* 

* 


rtnf 

mar 


nop 


tr * 

* 

* 

* 

g 

.aOsw 

eO 

a1rz 

nop 


tc * 

★ 

* 

* 


$ 0010 

* 


■go 


tr * 

* 

* 

* 

e-g 

a1 

nop 

aO 

SO 

^ 1 ^ 

tc fnn 

★ 

* 

* 


rtnf 

mar 


nop 

* 

If the 

number 

of 

shifts 

requi red is > 16, 

return 

the data in 

* 

F register 

- 








t.c * 

* 

* 

* 


$ 0000 

★ 


cmrO 


tc * 

★ 

* 

* 


$ 0000 



e1 


tr * 

★ 

* 

* 

* 

bsrO 

eO 

fO 

gO 


tc * 

* 

* 

* 


shft 

mar 


nop 


tc * 

★ 

* 

* 


$ 0001 

* 


■cmr3 

* 

prepair to 

shift 

the data and return to shifting 

routine. 

rtnf 

tr * 

* 

jp 

* 

* 

* 

* 

* 

* 


tr * 

* 

df 

* 

* 

* 

* 

* 

* 

* 

Return 

the 

contents of 

the F register. 




* 











*************************.************************************* 

* this is just for a break point and it is to be removed when* 

* the program is actually inserted into the code. * 

************************************************************** 

fcmp tc * * * * $ OOOQ tOba t1ba 

************************************************************** 

* This accepts the data in the E register and G register as * 

* Inputs. Initially, the program stores the original data in * 

* temporary file, the E register goes in location 0 and the * 

* G register goes in location 1. The following will also * 

* strip off the sign bit * 

************************************************************** 

tr * * * * e aO tfOu aV tflu 

tr * * * * g ,a0 tfOu a1 tf1u 

************************************************************** 

* This routine strips off the sign bit. The correct sign bit * 

* is saved in the PAST register. * 

•k-k-k'k'kic-kic'kic'kicic'k-k'kic'k'k^-kii-kic-kic'k‘k-k'k'k'k-k'k'k'k'k'k'kicicic-k-kJc'k-k'k'kirkii:'kic'k'k'k‘k'ki(ie‘k 


sh 

uns 

* 

★ 

* 

★ 

Izin 

nzin 

Izin 

s 

sh 

* 

* 

★ 

* 

★ 

rzin 

nzin 

rzin 

s 

tr 

* 

* 

* 

* 

e 

alsw 

eO 

aOsw 

e1 

tr 

* 

* 

★ 

* 

g 

aOsw 

gi 

a1 sw 

gO 


‘k'k'k’kif-k'k^k'kic'k'kicicic-k'k'k'k'k'k'kic'k'k'kic'k'k'k'k-k'k'kic'k’k'kici^'k-kicic'k'k'k’k'kirkic'k'kic'k'k'kiciiieic 

* The 0002 in cmrO will check for E1 negative. This is done * 

* in the past sense. If EKO, then jump to the routine that * 

* will handle that case. * 

************************************************************** 

tc * * * * $ 0002 nop crarO 

tc * * * * $ 0000 nop cmrl 
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tc tpn * * * emng mar * 

************************************************************** 

* by this point, the E register must not be negative 0=0) * 

* the 0020 in the cmrO will test for g<0. If g<0, e is the * 

* greater of the two numbers. If not, they are both >= 0. * 

************************************************************** 

tc * * * * $ 0020 * cmrO 

tc tpn * * * egrt mar * 

************************************************************** 

* This will determine if there is a difference in exp sgn. * 
************************************************************** 

tc tpn * * * $ 0000 * cmrl 

tc tnn * * * gxng mar * 

************************************************************** 

* This wiU do a jump if the sign of G is 1, or, G negative * 

* in the exponent portion. * 

************************************************************** 

tc * * * * $ 0002 * cmrO 

tc tnn * * * ggrt mar * 

************************************************************** 

* By here, the exponent of g is positive. If the exponent of * 

* E is negative, both mantissas being positive, e<g * 

************************************************************** 


tr 

fnn 

* 

★ 

■k 

e-g 

aO 

eO 

a1 

el 

tc 

tnn 

* 

★ 

* 

ggrt 

mar 


* 


tc 

fnn 

* 

* 

★ 

$ 0000 


fO 


f1 

tc 

* 

* 

jp * 

$ 0000 


tOba 


tiba 

tr 

* 

* 

df * 

* 

tfOn 

eO 

tfln 

el 


************************************************************** 

* Since both exponents and mantissas are nonnegative, this * 

* routine calculates e-g, exponents in the HOBP and mantissas* 

* in the LOBPs. If the result is < 0, g>e, else return E. * 
************************************************************** 


ggrt 

tc * 

* 

* * 

$ 

0001 


tOba 


tiba 


tc * 

k 

jp * 

$ 

0001 


fO 


f1 


tr * 

k 

df * 

* 


tfOn 

eO 

tfln 

el 

k'k'k'kkk-k-k-kk-kieirkkk-k-krk-k-k-ic-k-k-k-k-k-k-kkkkkkic-k-kk-k'k'k-k'kkkicirkic-kk-k'kk'kkk-k-k-k-k'k 

* if 

f1>=0. 

e>g 

, return 

tiZM 





* 

************************************************************** 

egrt 

tc * 

* 

* * 

$ 

0000 


fO 


f1 


tc * 

* 

jp * 

$ 

0000 


tOba 


tiba 


tr * 

* 

df * 

* 


tfOn 

eO 

tfln 

el 


********************************************************^*^^^^ 

* This is the section of the program that is called if E is * 

* negative. Cmantissa) * 

************************************************************** 
emng tc * * * * $ 0020 * cmrO 

tc fpn * * * ggrt mar nop 

************************************************************** 

* This section does the compare if both the operands are < 0 * 

* This will determine if there is a difference in exp sgn. * 
************************************************************** 
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ncinp tc * * * * $ 0000 * * 

tc tnn * * * gbng mar * 

* This wiLL do a jump if the sign of G is 1, or G negative * 

* in the exponent portion. * 

★★★★★★^★★★★★★**Vc**:fcJt***^*************^*^r***ifc***^**iit *******:*:*** 

tc * * * * $ 0002 , * cmrO 

tc fnn * * * nnpp mar * 

************************************************************** 

* By here, the exponent of g is positive. If the exponent of * 

* E is negative, both mantissas being negative, e>g * 

★★★★★^★★★★*******^*ifc^**^*******:f:*****:jt:fc*Jc**:lr*******ir***:fr****** 

tc tnn * * * $ 0000 fO f1 

tc * * jp * $ 0000 tOba t1ba 

tr * * df * * tfOn eO tfin e1 

* The above wiLL return e * 

************************************************************** 
gbng tc tnn * * * ebng mar * 

************************************************************** 

* Both G's exponent and sign are negative. If true, the same * 

* holds true for E. If this is false, return g. * 

************************************************************** 



tc 

* 

* 

* 

* 


$ 0001 


tOba 


tiba 


tc 

* 

* 

jp 

* 


$ 0001 


fO 


f1 


tr 

* 

* 

df 

* 

★ 


tfOn 

eO 

tfin 

el 


ebng 

tr 

* 

* 

* 

* 

e-g 


aO 

eO 

a1 

el 


tc 

fnn 

* 

* 

* 


ggrt 

mar 


* 



tc 

★ 

* 

* 

* 


$ 0000 


fO 


f1 


tc 

* 

* 

jp 

* 


$ 0000 


tOba 


tiba 


tr 

* 

* 

df 

* 

* 


tfOn 

eO 

tfin 

el 

************************************************************** 

* Both 

the 

mantissa 

and the 

exponent 

of both E 

and' G 

are 

★ 

* less than 

zero. 

calculate 

e-g.. if 

result positive. 

g>e 

* 

************************************************************** 

gxng 

tc 

fnn 

* 

* 

* 


egpt 

mar 


nop 



tc 

* 

* 

* 

* 


$ 0000 

* 


★ 


test 

tr 

* 

* 

* 

* 

e-g 


aO 

eO 

a1 

el 


tc 

fnn 

* 

* 

* 


egrt 


mar 


nop 


tc 

tnn 

* 

* 

* 


ggrt 


mar 


nop 


tc 

* 

* 

* 

* 


$ 0000 

* 


A 



************************************************************** 

* at this (preceeding Line) both E and G are positive. The * 

* sign of the exponent of g, is negative. If the sign of the * 

* exponent of E is positive, e>g, hence return E. * 

************************************************************** 


nnpp tr 

* 

★ 

* 

* 

e-g 

aO 

eO 

a1 

el. 

tc 

tnn 

* 

* 

* 

egrt 


mar 


nop 

tc 

fnn 

★ 

* 

* 

ggrt 


mar 


nop 

tc 

* 

★ 

* 

* 

$ 0000 

* 


* 



# 


&-13 5 




APPENDIX 6 

CONTEXTUAL CLASSIFIER PROGRAM LISTING 

org 0100 

tc *- * * * $ GOOD LOad Had 

* 

* THREE PIXEL LINEAR NEIGHBORHOOD -- 04 classes! 

* CONTEXTUAL CLASSIFIER MOD VI 

* 4/5/1980 ■ 

* 

* 

* 



tc * * * 

* 


$ 0010 


nop 


icrO 



tc * * * 

* 


$ 0002 


nop 


cmr3 


LoLd 

tc * * * 

■k 


$ 0000 


tfbu 


tflu 



tc adn inO * 

* 


lold 


mar 


nop 



tr adn * * 

* 

* 


ifOu 

IfOu 

iflu 

Iflu 


* 

lAr 

Load 1 Covariance 

Matrix 

1 







tc * • clO * 

* 


$ 0030 


nop 


icrO 



tc * * * 

* 


$ 8000 


g1 


tiba 



tc * * * 

* 


$ 0000 


tOba 


gO 


loam 

tr * inO * 

* 

* 


ifOu 

eO 

iflu 

el 



tc adn * * 

■k 


loam 


mar 


nop 



tr * * * 

* 

xor 


aO 

IfOu 

al 

Iflu 


★ 

i: 

Load mean vectors 









tc * cld * 

★ 


$ 0120 


nop 


icrO 


loac 

tc adn * '* 

* 


loac 


mar 


nop 



tr adn inO * 

* 

* 


ifOu 

IfOu- 

iflu 

Iflu 



tr * * * 

* 

zro 


aO 

IfOu 

al 

Iflu 



tr * * * 

•k 

zro 


aO 

IfOu 

al 

Iflu 


* 

if 

Load covariance matrix. 








tc * clO * 

* 


$ 0032 


nop 


icrO 


load 

tc adn * * 

* 


load 


mar 


nop 



tr adn inO * 

* 

* 


ifOu 

LfOu 

iflu 

Iflu 



tc * clO * 

* 


$ 0152 


lOad 


Had 



t c * * ' * 

* 


$ 0533 


nop 


icrO 


loag 

tc adn * * 

* 


loag 


mar 


nop 


* 

tr adn * * 

* 

* 


ifOu 

IfOu 

iflu 

Iflu 


* 

the above routine 

will 

load the 

data vector 

S the 

a-priori configuration 

* 

al probabilities. 








* 

The configuration 

of the large file is as follows 

* 



* 





Base 10 

Base 

16 



* 

~ln {Covariance matricesi 

000-016 

QOO-OOf 



* 

Mean Vectors 

( X ■ 

-1 ) 


017-064 

010-03f 

/* 12 

classes */ 

* 

covariance matrices 


065-255 

040-0ff 

/* 12 

classes */ 

* 

data vectors 




256-287 

100-121 

/* 8 1 

pixels */ 

* 

Not currently used 


289-337 

122-151 



* 





338-1668 

152-684 

/* 11 

classes */ 


{ PAGE IS 
POOE QTTAT.Ttv 
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4 ^/ 


■ft 

Not currently used 

1668-1776 

684-6f1 

■k 

aCrO 

1777-1792 

6f1-700 

* 

bCj] 

1793-1808 

701-710 

* 

ctq] 

1809-1824 

711-720 

* 

.Not used 

1825 

721 

* 

i 

1826 

722 

* 

j 

1827 

723 

ft 

k 

1828 

724 

* 

r 

1829 

725 

* 

q 

1830 

726 

* 

value 

1831 

727 

* 

class 

1832 

728 

* 

33 

1833 

729 

* 

* 


1834 

72a 


tc 

* 

* 

* 

* 

$ 0722 

lOad 

Had 

tc 

* 

* 

* 

* 

$ 0000 

IfOu 

Iflu 

ilpl tc 

* 

* 

* 

* 

$ 0723 

load 

Had 

tc 

* 

* 

* 

* 

$ 000 f 

tOba 

tiba 

tc 

* 

* 

* 

* 

$ 06 f1 

tfOn 

tfin 

tc 

* 

* 

sr 

* 

comf 

mar 

nop 

tc 

* 

* 

* 

* 

$ fffe 

If On 

Ifin 

tr 

* 

* 

* 

pupl * 


nop nop mult 

mcrS 


★ 


* Lfl, 01118263=0 LfO^I n8273=-2;caLL comf to calculate aCj] 

*' where 0<=j<=3 comf calculates the 3 classes for pixel 

* k+2. comf also assumed that lOad and Had are 1827. 

* 

* comf also assumes that in tf0C073 the location of the destination 

* is stored. 

* 


* for i=0 to I“1 do: 

★ 



tc 

•k 

* 

* 

* 

$ 0723 

lOad 


Had 


tc 

* 

k 

* 

* 

$ DOOf 

tOba 


tiba 


tc 

* 

k 

* 

k 

$ 0701 

tfOn 


tfin 


tc 

* 

* 

sr 

k 

comf 

mar 


nop 


tc 

* 

* 

* 

* 

$ ffff 

IfOn 


Ifin 

ic 

tr 

* 

k 

* 

pupl * 


nop nop 

mult 

mcr3 

★ 

call 

comf 

to 

calculate 

bCj], where 

0 <= j <= 4. 




tc 

* 

* 

* 

* 

$ 0723 

lOad 


Had 


tc 

* 

* 

k 

* 

$ OOOf 

tOba 


tiba 


tc 

* 

k 

k 

* 

$ 0711 

tfOn 


tfin 


tc 

* 

* 

sr 

* 

comf 

mar 


nop 


tc 

k 

* 

k 

* 

$ 0000 

If On 


Ifin 

“k 

tr 

k 

* 

k 

pupl * 


nop nop 

mult 

mcr3 

* 

call 

comf 

to 

calculate 

cCjl, where 

Q<= j <= 4. 




tc 

* 

* 

* 

k 

$ 0723 

lOad 


Had 
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dfSJLJ 



tc * 

* k k 

$ 0003 


IfOu 


Iflu 


tc * 

k k k 

$ 0001 


IfOu 


Iflu 

* 

lfO,1 n827>3,LfO, 

1 : 1 8283=1. 





* 

for k 

=1 to J-2 do: 






kLpI 

tc * 

* * * 

$ 0727 


lOad 


Had 


tc * 

* * * 

$ 8001 


nop 


el 


tc * 

* * * 

$ 8000 


eO 


nop 


tr * 

* * * 

e 

aO 

IfOu 

a1 

Iflu 


tr * 

* * * 

e 

aO 

IfOu 

a1 

Iflu 

■k 

If 0 , 1 : 1 831 D = -1; 

Lf0,i:i8323 = -1; 





* 

value 

=cLass=-1 







tc * 

k k k 

$ 0723 


lOad 


Had 


tc * 

k k k 

$ 0000 


IfOu 


lf1u 

* 

lf0,1E18273=0; 






* 

j=0 (for j=0 to c- 

1 do:) 





7C 

it pi 

tc * 

k k k 

$ 0725 


lOad 


Had 


tc * 

★ k k 

$ 0004 


P 


nop 

a. 

tc * 

k k k 

$ 0000 


IfOu 


Iflu 

A 

* 

LfO,i:i829]=Q; p=3 

(always = number 

of classes C) 



for r 

=0 to c-1 do: 







tc * 

+ ★ ★ 

$ 0723 


lOad 


Had 


tr * 

k k k 

k 

nop 

nop 

If On 

q 


tc * 

* * plqL 

$ 072a 


lOad 


Had 


tr * 

* * pLqL 

* 

mult 

eO 

nop 

nop 


tc * 

* * * 

$ 0152 


nop 


gO 


tr * 

•* ★ * 

add 

aO 

If On 

a1 

lf1n 

* 

Lf0,i:i8343=CLf1,0:i8273 X C ) + base 

address of 

6 


* 

this 

will provide 

the address for g:0,j,03; 




rLpI 

tc * 

* * * 

$ 0726 


lOad 


Had 


tc * 

k k k 

$ 0000 


IfOu 


Iflu 


tc * 

k k k 

$ 0000 


brgO 


brgl 

* 

sum=0 

; Lf1C1830>0 

r 





* 

k 

for q 

=0 to c-1 do: 






qLp1 

tc * 

* * * 

$ 0725 


lOad 


Had 


tc * 

* * * 

$ D6f1 


nop 


gO 

4> 

tr * 

* * * 

add 

aO 

lOad 

a1 

Had 

* 

k 

e = 1777 + Lfi:i829]; l0ad,L1ad = e; 

(aCrD) 





tr * 

* * * 

★ 

IfOn 

fO 

Ifin 

f1 
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★ 


* 

fO,1 

II 
1 — 
o 

,L11 






tc * 

* 

* 

* $ 0701 


nop 


gO 


tc * 

* 

* 

* $ 0723 


LOad 


Llad 


tr * 

* 

* 

* * 

LfOn 

eO 

nop 

nop 


tr * 

* 

* 

* add 

aO 

LOad 

aO 

Llad 

* 

e = 1793 + 

L-fini8273; Load, Had = e; 

(bCji) 





tr * 

* 

* 

* * 

LfOn 

eO 

Lfin 

el 


tc * 

■k 

sr 

■ * fpmr 


mar 


nop 


tr- * 

* 

* 

* * 

f1 

gi 

fO 

go 

* 

f=eXg 

— f 

= 

atlrl X bCjl; 






tc * 

* 

* 

* $ 0711 


nop 


gO 


tc * 

■k 

* 

* $ 0726 


LOad 


Llad 


tr * 

* 

* 

* * 

LfOh 

eO 

nop 

nop 


tr 

* 

* 

* add 

aO 

LOad 

aO 

Llad 


tr * 

* 

* 

* * 

LfOn 

eO 

Lflh 

et 

* 

catcu Late 

Location of cEq3. (=1 809+ tfl 1118301) 













tc * 

* 

sr 

* fpmr 


mar 


nop 


t-r * 

* 

* 

* * 

f1 

gi 

to 

•go 

★ 









★ 

f-eXg 

— f 

= 

aCrl X bCj] X ctql; 






tc * 


* 

* $ 072a 


LOad 


Llad 


tr * 

•k 

* 

* * 

LfOn 

LOad' 

LfTn 

Had 

/V 

* 

lOad/l 

blad = 

= Lf1[I1834J Cg'Er,j,ql) 





* 










tr * 

* 

*• 

* * 

LfOn' 

eO- 

LfTn' 

el 


tc * 


sr 

* fpmr 


mar 


nop 


tr * 

* 

* 

*• * 

f1 

gi 

fO 

go 

* 










f=eXg. 

f 

- 

aCrl X bCjl X cCql X gCr 





* 










tc * 

* 

sr 

*■ fpar 


mar 


nop 


tr * 

* 

* 

* * 

nop 

nop 

nop 

nop 

*■ 









* 

f = f 

+ sum 






* 









A 

tr * 

* 

* 

* * 

fO 

brgO 

f1 

brgt 

* 

sum = 

f 







* 










tc * 

* 

* 

* $ 072a 


LOad 


Llad 


tr * 

* 

★ 

* * 

LfOn 

eO 

Lfin 

ei 


tr * 

* 

* 

* e+1 

a0‘ 

LfOn 

ad 

Efln 
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* 

★ 

* 


* 

* 

* 

* 


* 

* 

* 

•k 

* 

* 

* 

* 

* 

* 

* 


* 

* 

* 


★ 

* 

* 

* 

* 


* 

* 


Update pointer into gCr,j/.q3 to next q 


tc * 

* * 

* 


$ 0726 


lOad 


Had 

tr * 

* * 

* 

* 


IfOn 

eO 

nop 

nop 

tr * 

* * 

* 

e+1 


nop 

nop 

aO 

idxO 

tc * 

* * 

* 


$ 0004 


nop 


icrO 

tc * . 

* * 

* 


$ 0002 


nop 


cmr3 

tc adn 

* * 

* 


qlpl 


mar 


nop 

tr * 

* * 

* 

e+1 


aO 

IfOn 

aO 

L.fin 

q=q+1 

(lf0,1C1830] = lf0,1C1830D + 1; 





if q ! 

= 4 goto 

qlpl 






tc * 

* * 

* 


$ 072a 


lOad 


Had 

tr * 

* * 

* 

* 


If On 

eO 

nop 

nop 

tc * 

* * 

* 


$ 006f 


nop 


gO 

tr * 

* * 

* 

add 


aO 

IfOn 

aO 

Lfin 


e=LfO,1C1834] 

e=e+133 

LfO,1C18343=e 

the program has just gone through aLL possible values of q 
in the combination gCr,j,q], it must now update to the next 
value of r, as j is held constant. 12 if necessary because 


g is a 4 

X 

4 X 

4 matrix. The program is 

pointing to 

the 

last element 

of a 

given 

r, and j . 




tc * * 

* 

* 


$ 0726 

LOad 


Had 

tc * * 

■k 

★ 


$ 0000 

LfOd 


Lfid 

Ifl H830: 

= c 

1 (q 

= 0) 





tr * * 

* 

* 

* 

If On 

eO 

nop 

nop 

tr * * 

* 

* 

e+1 

a1 

nop 

aO 

idxO 

tc * * 

* 

* 


$ 0004 

nop 


icrO 

tc * * 

* 

* 


$ 0002 

nop 


cmr3 

tc adn * 

* 

k 


rlpl 

• mar 


nop 

tr * * 

k 

k 

e+1 

aO 

IfOn 

aO 

Lfin 


lf1C1829D = lf1C1829: + 1 (r=r+1) 

store updated value of r. 
if r != 4 (base 10) goto rlpl 


tc 

* 

k 

k 

k 


$ 0727 


LOad 


Had 

tr 

* 

k 

k 

k 

k 


IfOn 

fO 

Lfin 

f1 

tr 

* 

k 

k 

k 

k 


bsrO 

eO 

bsrl 

el 

tc 

•k 

k 

k 

k 


fcmp 


mar 


nop 

tr 

★ 

k 

k 

k 

k 


f1 

gi 

fO 

gO 


g=lf1,0C183i:; e=brg1,0 
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* 

* 

* 


f=g; floating point compare e and g. 



tr * * 

* 

dt * 

nop 

nop 

f1 

idxO 


tc * * 

* 

* 

$ QOOO 

nop 


icrO 


tc * * 

* 

* 

$ 0002 

nop 


cmr3 


tr ad * 

* 

* * 

bsrO 

IfOu 

bsri 

Lflu 


tc ad .* 

* 

* 

$ 0723 

lOad 


Had 


tr ad * 

* 

* * 

IfOn 

eO 

Ifln 

el 


tc ad’ * 

* 

* 

$ 0728 

lOad 


Had 

ic 

tr ad * 

* 

* e • 

aO 

LfOu 

a1 

lflu 

-k 

f will be 

set 

to zero or one, depending on 

whether g 


•k 

or eis greater. If g.is greater, the new value is less 


■k 

than the old 

value. If 

e is greater, its value and class 

k . 

are the new one for the 

pixel under consideration 

• 


* 

in program 

code: compare e,g; 




* 



if C-f! 

= .0) 




* 



< LfO 

,1018313 = brg0,1; 




* 



LfO 

,1018323 = lfQ,1,0l8273; 



* 



> 





*■ 

tc * * 

* 

* 

$ 0729 

iOad 


Had 


tc * * 

★ 

* 

$ QQOO 

IfOn 


lfin 

★ 

k 

If1,0n8333=0 

; (jj=.0) 






tc * * 

* 

* 

$ 06f1- 

X-Oad 


Had 


-tr * * 

* 

* * 

IfOn 

eO 

riop 

nop. 

* 

eO = lf1C17773.(aC01) 





« 

tc * * 

* 

★ 

$ 0701 

LOad 


Had 


tr * * 

* 

★ * 

IfOn 

gi 

If In 

go 

k 

tr * * 

* 

* g 

aO 

gi 

a1 

go 

k 

g1 ? If1i;i-793:.(b:03) 






tc * ciO' 

* 

* 

0001 

nop 


e1g0 


tc * * 

* 

* 

5 0002 

nop 


cm r3 

■k 

tc * * 

* 

* 

$ 0016 

nop 


icrO 

* 

This will be used to augment the original two values, so that 

* 

the program can shift bCjj3 -> aljj] the T6 represents 

the 24 

* 

pixels allowed (max) 





Li ip 

itr * inO 

,* 

* g 

aO 

lOad 

aO 

Had 


tr * * 

* 

* * 

IfOn 

fO 

Lfin 

f1 


tr * . * 

* 

* e 

a-1 

lOad 

a'O 

nop 


t r '* * 

* 

•* .0 

aO 

nop 

al 

Had 


tr * * 

* 

* add 

ai 

nop 

aO 

gO 
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tr 

* 

* 

* 

* 

add 

aO 

nop 

a1 

el 

tc 

adn 

* 

* 

■k 

Ljjp 


mar 


nop 

tr 

* 

* 

•k 

k 

* 

fO 

LfOn 

f1 

Lfin 


* since there are 24 data vectors maximum, this will move all of 

* them, whether they are there or not. the two add's are the update. 

* of. the address pointer. 



tc * 

★ 

k k 


$ 000 f 


tOba 


tiba 


tc * 

k 

k k 


$ 0711 


tfOn 


tfin 


tc * 

★ 

sr * 


comf 


mar 


nop 

* 

tc * 

* 

* k 


$ 0724 


lOad 


Had 

* 

k 

Calculate 

new cCjjU's 






k 











tc * 

★ 

k k 


$ 0724 


lOad 


Had 


tr * 

* 

k k 

* 


IfOn 

eO 

lfin 

e1 


tr * 

k 

k k 

e+1 


aO 

eO 

aO 

el 


tr * 

k 

k k 

e 


a1 

nop 

aO 

idxO 


tc * 

k 

k k 


$ 0001 


nop 


icrO 


tc adn 

k 

k k 


ilpl 


mar 


nop 


tr * 

k 

k k 

e 


aO 

IfOn 

a1 

lfin 


tr * 

k 

* pup 1 * 


nop 

nop 

mult 

mcr3 

k 

Break 

point. 







k 










k 

Update 

the value 

of i. 

where i is 

the number of i 

rows. 


k 










org 200 









fexp tc * 

k 

* * 


$ 0001 


gi 


nop 


tc * 

k 

sr * 


fpmr 


mar 


nop 

ic 

tc * 

k 

k k 


$ bSaa 


nop 


gO 

* 

Assume B 

=exp(E>; 







* 

E=E*log(e) 

(log to 

the base 2) 





* 











tc * 

* 

sr * 


f loo 


mar 


nop 


tr * 

* 

* k 

* 


fO 

brgO 

f1 

brgi 

•k 










* 

ent = floor(E) 


• 





+ 











tc * 

k 

k k 


$ 0007 


tOba 


tiba 

k 

tr * 

k 

k k 

* 


fO 

tfOu 

f1 

tflu 

k 

k 

save ent 

in 

temp filem 







tr * 

k 

k k 

* 


nop 

nop 

f1 

el 


tc * 

k 

k k 


$ 8000 


gi 


nop 


tc * 

k 

sr * 


fpar 


mar 


nop 


tr * 

k 

k k 

xor 


aO 

nop 

a1 

f1 


* 



A-a4 2 




'k 

tract = E - 

ent 







* 










tc * * 

sr * 


tpar 


mar 


nop 

k 

tc * * 

* * 


$’ 8000 


■.brgO 


bngl 

* 

frac,t=fract- 

•0.5 







* 










tr * * 

* * 

* 


fO 

tfOu 

f1 

t.f1u 

* 









* 

■k 

Store tract 

in temporary 

fii Le 8 

- 





tr * * 

* * 

* 


■fp 

eO 

f1 

el 


tc * * 

sr * 


fprnr 


mar 


■nop 


tr * * 

* * 

.* 


f1 

9l 

fO 

gO 

* 









* 

•X sq=,f r a c.t.*t na c t 







* 










tr * * 

* * 

* 


fO 

t<fOd 

f1 

tfid 

* 









* 

Store xsq in 

temporary fr.te 9 





* 










tr •* * 

* * 



fO 

,e0 

f1 

e1 


tc * * 

* * 


$ 0006 


gi 


nop 


tc * * 

sr * 


fprnr 


■mar 


:nop 


tc * * 

★ * 


$ f275 


nop 


.go 

* 









* 

tempi =p2*xsq 








* 








y 


tc * * 

* * 


S 000 f 


•nop 


br.gl 


tc * ■* 

sr * 


fpar 


mar 


nop 


t 'c * * 

* * 


$ ec9d 


brgO 


nop 

* 









* 

tempi =temp1 + 

p1 







* 










tr * * 

* * 

* 


-fO 

eO 

f1 

el 


tc * * 

* * 


$ 0009 


tOra 


tira 


tc * * 

sr * 


fprnr 


mar 


nop 

•k 









* 

tempi = tempi 

* xsq 







* 










tr * * 

* * 

* 


tf1d 

g1 

tfOd 

:g0' 


tc * * 

* * 


$ 0015 


nop 


brgl 


tc * * 

sr * 


fpar 


mar 


nop 


tc * * 

* * 


$ fdf4 


brgO 


nop 

* 









* 

tempi = tempi 

+ pO 







* 










tr * * 

* * 

* 


fO 

eO 

f1 

el 


tc * * 

sr * 


fprnr 


mar 


nop 


tr * * 

* * 

★ 


tflu 

g1 

tfOu 

.gO 


tr * * 

* '* 

* 


fO 

tfOu 

•f1 

•t.flu 


* 
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* 

tempi = 

tempi 

* 

fract 







* 

store in 

Location 8 of the 

temporary 

fiLe. 





tr * 

* 

* 

* 

* 


tfOn 

fO 

tfin 

f1 


tc * 

* 

* 

* 


$ 000b 


nop 


brgl 


tc * 

* 

sr 

* 


fpar 


mar 


nop 


tc * 

* 

* 

* 


$ daa9 


brgO 


nop 

* 

temp2 = 

xsq + 

q2 









tr * 

* 

* 

* 

* 


fO 

eO 

f1 

el 


tc * 

k 

sr 

* 


fpmr 


mar 


nop 


tr * 

k 

★ 

* 

* 


tfin 

91 

tfOn 

gO 

★ 

temp2 = 

temp2 * 

xsq 








tc * 

* 

* 

★ 


$ 0013 


nop 


brgl 


tc * 

* 

sr 

* 


fpar 


mar 


nop 

ie 

tc * 

* 

* 

* 


$ a005 


brgO 


nop 

* 

temp2 = 

temp2 

1 + 

q1 








tr * 

* 

* 

* 

* 


fO 

eO 

f1 

el 


tc * 

* 

sr 

* 


fpmr 


mar 


nop 

"k 

tr * 

* 

* 

*• 

* 


tfid 

gi 

tfOd 

gO 

* 

temp2 = 

temp2 

! * 

xsq 








tc * 

* 

* 

* 


$ 0017 


nop 


brgl 


tc * 

* 

sr 

* 


fpar 


mar 


nop 


tc * 

_* 

* 

* 


$ b730 


brgO 


nop 

* 

k 

temp2 = 

temp2 

[ + 

qO 







k 

tr * 

* 

* 

* 

* 


fO 

tfOn 

f1 

tfin 

k 

k 

store temp2 in ^ 

temporary 

Location 9 

(temp2 is aLready in 

f) 


tc * 

* 

sr 

■k 


fpar 


mar 


nop 


tr * 

* 

★ 

* 

* 


tfOu 

brgO 

tflu 

brgl 

k 

k 

F=temp1+temp2 









tr * 

* 

* 

* 

* 


fO 

eO 

f1 

el 


tc * 

* 

* 

* 


$ 0001 


gi 


nop 


tc * 

* 

sr 

* 


fpmr 


mar 


nop 

k 

tc .* 

* 

* 

★ 


$ b505 


nop 


gO 

k 

F=F*sqrt (2) 









k 












tr * 

* 

* 

* 

* 


tfOd 

brgO 

tfid 

brgl 


tr * 

k 

* 

* 

* 


fO 

tfOn 

f1 

tfin 
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^ 6 ^ 



tr * 

★ 

•k 

k 

* 


tfOu 

fO 

tflu 

el 

* 

BRG=tempZ 









* 

save f in temporary 

location 9 





* 

F=temp1 











tc * 

* 

k 

★ 


$ 8000 


gi 


nop 


tc * 

* 

sr 

* 


fpar 


mar 


nop 


tr * 

* 

k 

* 

xor 


aO 

nop 

a1 

f1 ■ 

* 

F=temp2-temp1 









tc * 

* 

sr 

* 


fdiv 


mar 


nop 


tr * 

* 

* 

* 

* 


tfOn 

brgO 

tfin 

brgl 

At 

* 

F=BRG/F= 

(tenpZ+tempI 

) /(tempZ-tempI) 





A 

tc * 

* 

* 

k 


$ 0007 


tOba 


tiba 


tr * 

* 

k 

k 

* 


tfin 

gi 

tfOn ’ 

.90 

* 

get ent 











tc * 

* 

k 

k 


$ 3fff 


nop 


el 


tr * 

cLO 

k 

k 

and 


aO- 

eO 

a1 

icrO 


tc * 

* 

k 

k 


$ 0001 


nop 


cmr3 


tc * 

* 

k 

k 


$ 0000 


eOgI 


nop 

LOOp tc ad 

* 

k 

k 


lOOp 


mar 


nop 

*!• 

sh ad 

inO 

k 

k 

* 


nzinn 

nzinn 

Izinn 

s 

7f 

* 

4r 

get integer value of 

ent. 







tr * 

•k 

k 

★ 

* 


nop 

nop 

f1: 

e-1 


tr * 

* 

jP 

★ 

add 


aO 

nop 

a1 

el 


tr * 

★ 

df 

* 

* 


fO 

eO 

mult 

mcr3 

* 

-I- 

add to current power 

of two. Routine 

is now over. 



fdiv tc * 

clO 

* 

k 


$ 0000 


nop 


el 


tp * 

* 

k 

k 

★ 


bsrO 

eO 

fO 

gO 


tc * 

* 

k 

k 


$ 8000. 


gi 


nop 


tc * 

* 

k 

k 


$ 0004 


■k 


cmrQ; 


tc * 

■k 

k 

k 


$ 0001- 


* 


cmr3 

loop tr * 

k 

k 

k 

e-g 


aO 

fO 

aO 

icrd 


tr fnn 

k 

k 

k 

* 


fO 

eO 

fO 

icrO 


tr fnn 

k 

k 

k 

add 


aO 

nop 

a1 

el 


tc ad 

k 

k 

k 


loop 


mar 


nop 


sh * 

k 

k 

k 

* 


nzinn 

nzinn 

rzinn 

s 


tr * 

* 

k 

k 

e 


a1 

fO 

bsr1 

el 


tr * 

k 

k 

k 

zro 


f1 

gi 

aO 

gO 


tc * 

k 

k 

k 


$ 4000 


eO 


nop 


sh * 

k 

k 

* 

* 


Icir 

nzinn 

bcir 

s 


tr * 

k 

k 

k 

e~g 


aO 

eO 

a1 

el 
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sh 

* 

* 

■k 

* 

★ 


rcir 

nzinn 

nzinn 

s 

tc 

* 

* 

k 

* 


$ bfff 


91 


gO 

tr 

* 

* 


* 

and 


a1 

eO 

aO 

el 

tr 

tnn 

* 

jp * 

e+1 


aO 

eO 

a1 

el 

tr 

tnn 

* 

df * 

and 


a1 

nop 

aO 

fl 

sh 

* 

* 

jp * 

* 


nzinn 

Lzinn 

nzinn 

s 

tr 

* 

* 

df * 

e 


a1 

nop 

aO 

fl 

fLoo tr 

* 

clO 

* 

* 

zro 


bsri 

eO 

a1 

el 

sh 

uns 

* 

* 

* 

* 


Lzinn 

nzinn 

nzinn 

s 

tc 

* 

* 

* 

k 


$ 0001 


nop 


cmrO 

tc 

* 

* 

•k 

k 


$ 0001 


nop 


cmr3 

tc 

tpn 

* 

* 

k 


next 


mar 


nop 

sh 

* 

* 

★ 

k 

* 


Lzinn 

nzinn 

nzinn 

s • 

tc 

tnn 

* 

jp * 


$ 0000 


fO 


fl 

tc 

tnn 

* 

df * 


$ 0000 


eO 


el 

tc 

* 

* 

* 

* 


$ 0034 


nop 


gO 

tr 

* 

* 

* 

* 

e-g 


aO 

eO 

aO 

fl 

tr 

fnn 

* 

jp * 

* 


bsrO 

fO 

bsri 

fl 

tr 

fnn 

* 

df * 

* 


nop 

nop 

nop 

nop 

sh 

* 

* 

* 

* 

* 


nzinn 

rzinn 

nzinn 

s 

sh 

* 

* 

★ 

k 

* 


nzinn 

rzinn 

nzinn 

s 

tr 

* 

* 

* 

k 

* 


bsrO 

eO 

bsri 

icrO 

LOIp tc 

ad 

* 

* 

k 


LOIp 


mar 


nop 

sh 

ad 

inO 

* 

k 

* 


Lzinn 

nzinn 

nzinn 

s 

tr 

* 

cLO 

k 

k 

e 


a1 

eO 

aO 

nop 

L02p tc 

fnn 

* 

k 

k 


L02p 


mar 


nop 

sh 

fnn 

* 

k 

k 

* 


Lzinn 

nzinn 

nzinn 

s 

tr 

* 

* 

jp * 

e 


aO 

fO 

bsri 

fl 

tc 

* 

* 

df * 


$ 0000 


eO 


el 

next tc 

tnn 

* 

jp * 


$ 8001 


fO 


fl 

tc 

tnn 

* — 

df * 


$ 8000 


fO 


el 

tc 

* 

* 

* 

* 


$ 0034 


nop 


gO 

tr 

'k 

* 

* 

* 

e-g 


aO 

eO 

aO 

fl 

tr 

fnn 

* 

jp * 

* 


bsrO 

fO 

bsr1 

fl 

tr 

fnn 

* 

df * 

* 


nop 

nop 

nop 

nop 

sh 

* 

* 

★ 

* 

* 


nzinn 

rzinn 

nzinn 

s 

sh 

* 

* 

k 

* 

* 


nzinn 

rzinn 

nzinn 

s 

tr 

* 

* 

k 

* 

* 


bsrO 

eO 

bsri 

fl 

sh 

* 

* 

k 

* 

* 


nzinn 

Lzinn 

nzinn 

s 

sh 

* 

* 

k 

* 

* 


nzinn 

rzinn 

nzinn 

s 

tc 

* 

* 

k 

* 


$ 0000 


nop 


el 

tr 

* 

* 

k 

* 

* 


nop 

nop 

f1 

icrO 

Lsip tc 

ad 

* 

k 

* 


Lsip 


mar 


nop 

sh 

ad 

inO 

k 

* 

* 


Lzinn 

nzinn 

nzinn 

s 

tr 

* 

cLO 

k 

* 

e 


a1 

eO 

aO 

nop 

tr 

ad 

* 

k 

* 

e+1 


aO 

eO 

nop 

nop 

Ls2p tc 

fnn 

■k 

k 

* 


Ls2p 


mar 


nop 

sh 

fnn 

* 

k 

* 

* 


Lzinn 

nzinn 

nzinn 

s 

tr 

* 

★ 

jp * 

e 


aO 

fO 

bsri 

fl 

tc 

* 

k 

df * 


$ 0000 


eO 


el 

fpmr tr 

* 

* 

k 

* 

e 


a1 

eO 

aO. 

q 


************************************************************** 

uSiGMAL PAGE IS 
OF POOS QUATJT7 
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* load multiplicand * 

************************************************************** 

tr * * * * g aO p a1 gO 

★***********************************:fr******************^**Je*** 

* load multiplier * 

iciciciiici^ific'kie-k-k'k-k-k'k'kie'k'k'kie’k'k'kifieic'k'kic'k'k-kisicic'kie’k'k'kic-kic'k'kicic'k'k-k'k'k'k'k'ie-k'k'k'ki; 

tc * * * * ■ $ 0004 * cmrO 

************************************************************** 

* this condition will check to see it fO < 0. * 

************************************************************** 

tc * * * * S 0002 * cmr3 

************************************************************** 

* is indexO = compare register 0? * 

icic'k-kic'k'kic-k'kie'k'k'k'kic'k'k'kic'k'k'k'k'k'kic'k-kic'k-k'ffic-kie-kic'k'kieit'k'k'k'k'kie-k'kic'kic’k'kic-k'kic'kic'k 


tr 

* 

cLO 

* 

puqu 

add 

a1 

* 

aO 

f1 

tr 

* 

* 

* 

puqu 

zro 

mult 

fO 

ab 

el 

tc 

* 

* 

* 

* 

$ 0000 


9l 


gO 

tr 

* 

* 

* 

* 

* 

nop 

nop 

fO 

gO 

tr 

* 

* 

* 

puql 

g 

aOsw 

gi 

alsw 

gO 

tr 

* 

* 

* 

puql 

* 

mult 

eO 

nop 

nop 

tr 

* 

* 

* 

plqu 

add 

a1 

gi 

aO 

gO 

tr 

* 

* 

* 

pLqu 

* 

mult 

eO 

* 

* 

tr 

* 

* 

* 

* 

add 

a1 

gi 

aO 

gO 

tr 

* 

* 

* 

* 

9 

aOrz 

fO 

alsw 

nop 

tr 

* 

* 

* 

* 

* 

* 

* 

f1 

el 

tr 

* 

* 

* 

* 

* 

* 

* 

fO 

icrO 


icicicicicicif'ieicicie-kic'k'kirk'k'kicifirk'k'kifirkic’^'kic'k’k'k'kicirkicic'k'kitii'k'kicirkic'kisirk'k'k'kic'kic'k 

*If the value returned is zero, zero both registers, return* 

ieicicicivificic'k'kicicic'k'k'k'k'kiz'k'k'k'k'k'kic'k'k'k'k'k'k'k-kicic'k'k'kicit'kit'k'k'k'k'k'k'kic'kitic'kic-kic-k'k'k-k 

tc ad * jp * $ 0000 fO f1 

tc ad *^ df * $ 0000 * * 

************************************************************** 

* If fO is justified, return. The product is normalized. * 

************************************************************** 

tc * * * * $ 0000 * cmrl 

tc tnn * jp * $ bfff g1 . * 

tr tnn * df * and aO * a1 f1 

ific'k'k'k^'k-k'kificic-kic'k'k'k-k-k'k'kic'k-kic'k'k-k'kic-k'kicic'kif'k'k'kic'k'k'k'k'k'k'k'kirkie-k'k'k'k'k'kirk'k'k'k 

* Save the exponent in g1, clear E1 for a counter * 

************************************************************** 

tr * * * * zro f1 g-1 aO el 

tr * clO * * zro aO eO * * 

************************************************************** 

* By here, product cannot be zero. The normalization process * 

* will take less than four repeats of this Loop. If it ever * 

* takes more, there is something branching directly to this * 

* process. * 

************************************************************** 

nrm tr fnn inO * * e+1 aO eO a1 * 

sh fnn * * * * nzin Lzin nzin s 

************************************************************** 

* By now, the result must be normalized!!!!! * 
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JA. 


************************************************************** 


tr * 

* 

* 

* 

9 


aO 

* 

a1 

f1 

tr * 

* 

* 

* 

e 


aO 

gi 

a1 

gO 

tr * 

* 

* 

* 

■k 


fO 

eO 

f1 

el 

sh * 

* 

* 

* 

★ 


Icir 

lei r 

Izin 

s 

tr * 

* 

* 

•k 

e-g 


aO 

eO 

a1 

el 

************************************************************** 

*This will 

take 

the 

normalized 

result. 

shift it 

left. 

adjust 

★ 

*the expontent. 

so 

that 

it agrees with 

the mantissa. 


★ 

************************************************************** 

tc’ * 

* 

■k 

* 


$ 7fff 


gi 


* 

tc * 

* 

* 

* 


$ ffff 


* 


gO 

tr * 

* 

jp 

* 

acb 


aO 

* 

a1 

fi 


************************************************************** 

* this wiLL "mask off" any carries into the unused portion of* 

* the exponent. * 

************************************************************** 

sh * * df * * nzin rcir nzin s 

****************************B0g-in Rout i ne FPAR*********************** 

* 


This is the floating point addition routine. 3/1/80 


fpar 

tr * * 

* * 


* 

bsri 

gi 

f1 

el 


sh uns clO * * 


* 

Lzin 

nzin 

lzin 

s 


sh * * 

* * 


* 

rzin 

nzin 

rzin 

s 

k 

k 

This will 

strip' 

the sign of the 

mantissa 

and save 

i it for future use 


tr * * 

* * 


* 

* 


* 

bsrO 

icrO 


tc tnn * 

* * 


S 0000 



* 


cmrO 


tc tnn * 

* * 


$ 0010 



* 


cmrl 


tr tnn * 

jp * 


zro 

aO 


eO 

a1 

el 


tr tnn * 

df * 


zro 

aO 


gi 

a1 

gO 


tr * * 

* * 


zro 

aO 


* 

a1 

cmrl 

k 

k 

this will 

compare 

the brg to zero, if it 

is 

, return. 


k 

tr * * 

★ k 


zro 

aO 


eO 

a1 

go 

* 

k 

This will 

zero the 

registers to 

prevent : 

spurious 

results. 

k 

tr * * 

* 


e-g 

aO 


nop 

a1 

i crO 

k 

■i'f le|<Ig| 

, the 

program will reverse the 

numbers 

and continue. 

k 

since addition is 

commutative. 

this should 

not affect the results. 


tr * * 

* * 


xor 

a1 


eO 

aO 

nop 


tc * * 

* * 


$ 2000 



* 


gO 


tr * * 

* * 


and 

a1 


* 

aO 

go 


tc * * 

* * 


$ 8000 



eO 


* 


tr * * 

* * 


e-g 

a1 


* 

aO 

gO 


tc * * 

* * 


$ 0010 



* 


cmrO 


tc fnn * 

* * 


nsh 



mar 


* 
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* 


* 

* 

* 

*■ 

* 

* 

* 

* 

* 

* 


* 

■k 

* 

* 

* 

* 

* 


* 


If the exponent on one of. the two nuitibers is less than zero 
and the other is not, subtraction to yield the number of shifts 
will not yield the correct answer, and thus special handling 
must be add.ed to compensate for this problem. The way that this 
routine handles the problem is it exclusive ors the two numbers 
together and then strips off everything but the sign bit. This 
is then subtracted from a constant (for speed). The constant is 
8000, thus if there is a 1 in the sign position, the result will 
not be negative, indicating that the correction must take place, 

tc tnn * * * $ 0020 * cmrO 

tr * * * * e-g a1 g1 * * 

This will test for E-=-G->G negative. This is to insure that Ibrgj >= 
if 1, -simplifying the algorithm greatly. 

tc tnn * * * swap mar nop 

This involkes the swap, routine that will force the above to be true. 

tr * * * * zro * . * aO cmrO 

tc * * * * $ 0010 * cmrl 


* the zeroes that are Loaded into condition mask register 0 tell 

* the machine not to check for any of the conditions represented. 

* the 0010 Loaded into cmrl tell the machine to check for the compare 

* register greater than index register one. In this case, this will 

* determine whether the two numbers are equal or equal and opposite in 

* magnitude and sign. 

* 



t-r * * * 

* 

zro 

aO g1 

a1 

el 


tc tnn * * 

* 

equl 

mar 


nop 

* 

* 

I-f they are. 

the 

program will jump 

to a special routine 

- 

* 

* 

A 

By this point 

in 

the prog.ram, lel>| 

lg|. 




t' r * * * 

* 

* 

bsrO eO 

fO 

gO 


tc * * * 

* 

$ 0010 

* 


idxO 


tc * * * 

* 

$ 0020 

- * 


cmrl 

■ff 

tc tnn * * 

* 

rtnf 

mar 


nop 

* 

If the number 

of 

shifts required > 

16, return the 

value 

in the 

* 

•k 

E register. 







tr * * * 

* 

zro 

a1 g1 

aO 

cmrl 


tc * cLO * 

* 

$ 0001 

■k 


cmr3 


* 


this loads the data to be processed and it programs the CPU to check 
for regOSindxO. This is represented by a one in the first position. This 





A-149 


* check is invoLked by the AD command. 

* 

shft sh * inO * * * rzin nzin nzin, s 

tc ad * * * shft mar nop 


* 

* Index register contains the amount by which G>E, (the number of orders 

* of magnitude. This routine shifts E to the right until the two orders of 

* magnitude are equal. 

* 


tc 

* * 

•k k 

$ 0000 

gl 

* 

tc 

* * 

* ★ 

$ 0020 

k 

, cmrO 

tc 

fpn * 

* ★ 

gpos 

mar 

nop 

if 

g1 >= 

0, its 

sign is taken 

to be positive, and 

the numbers are 


* handeled in a corresponding manner. 

* 


* 


* By this pointy g must be negative. 

* 



tc * * * * $ 0002 



* 

cmrO 

4* 

tc tpn * * * ssgn 



mar 

nop 

A 

* 

If E is negative, and G is negative 

> 

the signs 

are the same and the 

* 

two numbers are just added and one 

of 

the 

signs 

is preserved. 


tc * * * * 


k 

* 

* * 

★ 

* 

At this point, 1 g 1>|E|, the resultant 

sign 

will 

be that of G. 

★ 

Without regard to sign, the result 

will be 

the 

old sign of G 

* 

k 

plus Ig-el. 





dsgn 

tr * * * * en 


aO 

eO 

* * 


tr * * * * e+1 


aO 

eO 

* * 

u* 

tr * * * * add 


f1 

eO 

aO gO 

* 

This calculates g-e. 





k 

tc * * * * $ 0010 



★ 

cmrO 

k 

k 

If the result is >= zero, there is 

not a one in 

tthe first bit position. 

k 

so the number is not normalized, and 

must 

be shifted until there appears 

k 

a '1' in the first bit position. 





k 

norm 

tr fnn * * * e-1 


aO 

eO 

* * 


tc fnn * * * norm 



mar 

nop 


sh fnn * * * * 


nzin 

nzin Izin s 


This routine normlizes the data 


* * * 

* * * 

* * * 


9 

and 


fO 

k 

★ 

* 


gO 

* 

aO 

fi 


■k 

* 

* 


tr * 
tc * 
tr * 


$ 3fff 


* 



A-150 





tc * * 

* ★ 

$ 0002 


★ 


cmrO 


sh * * 

* * 

* 

nzin 

Izin 

nzin 

s 


sh tpn * 

* * 

* 

nzin 

roin 

nzin 

s 


sh fpn * 

* * 

* 

nzin 

rzin 

nzin 

5 


tc * * 

jp * 

$ 0000 


eOgI 


elgO 


tc * * 

df * 

$ 0000 


* 


* 

★ 

this routine sets 

the sign to the 

sorrect 

sign and 

1 returns to the calling 

* 

routine. 







gpos 

tc tpn * 

* * 

dsgn 


mar 


nop 


tr * * 

* * 

•k 

* 

* 

k 

* 


* Before the jump to GPOS, the condition register was set to check for 

* e<Q. If it is, the signs are opposite and the data is treated 

* correspondingly. 

* 

* 

* By default, both G and E have the same sign, so the results are just 

* added . 



tr * * 

k k 

* 

* 

* 

fO 

gO 

ssgn 

tr * * 

k k 

add 

a1 

gi 

aO 

go 


sh * * 

k k 

* 

nzin 

nzin 

rcir 

s 

4 . 

tc * * 

k k 

$ 0010 


nop 


cmrO 

•k 

this checks for a 

carry out of 

he MSB, indicating 

normalization is 

k 

necessary. 








tr tnn * 

* * 

9 

f1 

eO 

* 

* 


tr tnn~* 

* * 

e+1 

aO 

eO 

* 

* 


tr' tnn * 

* * 

9 

aO 

fO 

* 

* 


tc tnn * 

jp * 

$ bfff 


* 


gO 

k 

tr tnn * 

df * 

and 

* 

* 

aO 

fl 

* 

k 

If it is. 

then, the 

number is normalized and 

the subroutine returns 


sh * * 

jp * 

k 

nzin 

nzin 

Icir 

s 

k 

tr * * 

df * 

9 

aO 

fO 

* 

* 

k 

“k 

This routine exchanges the two 

registers involved 

so that |.Gl>|Ei 

swap 

tr * * 

* * 

* 

f1 

gi 

fO 

gO 


tr * * 

* * 

* 

bsrO 

fO 

bsrl 

fl 


tc * * 

* * 

fpar 


mar 


nop 


tr * * 

* * 

9 

aO 

brgO 

a1 

brgi 


* 

* This calls the original routine. 


* 

* 

* This is the action taken when the routines have the same magnitude. 



A-151 




equL 

tc 

* * 

* 

* 

$ 0000 



nop 


cmrl 


tc 

* * 

* 

* 

$ 0002 



nop 


cmrO 


tc 

fpn * 

* 

* 

epos 



mar 


•nop 

if 

tc 

* * 

* 

* 

$ 0020 



nop 


cmrO 

* 

is 

el >= 

0 (originally ie) 

was f 

=> 0?) 





tc 

tp * 

★ 

* 

ssgn 



mar 


nop 

* 

tc 

* * 

* 

* 

$ 0000 



nop 

i 

nop 

★ 

if 

■n < 0 

then the two have 

similar 

signs. 

and should be added. 

* 

By 

this point 

, the brg is negative for sure 

, and 

the f1 

register 

* 

is 

positive. 

Reverse the two 

and continue processing. 



tr 

* * 

* 

* 

* 


f1 

eO 

bsri 

gO 


tr 

* * 

* 

* 

e 


aO 

gi 

nop 

nop 


tr 

* * 

* 

* 

9 


a1 

nop 

aO 

e1 


tr 

* * 

* 

* 

* 


bsrO 

eO 

fO 

gO 


.tr 

* * 

* 

* 

e 


aO 

fO 

a1 

f1 


tr 

* * 

* 

* 

9 


aO 

brgO 

a1 

■brg1 


tr 

* * 

* 

* 

g 


aO 

eO 

a1 

e1 


tr 

* * 

* 

* 

* 


f1 

gi 

fO 

gO 


sh 

uns * 

* 

* 

* 


Lzinn 

Lzinn 

lzinn 

s 


sh 

* * 

* 

* 

* 


rzinn 

rzinn 

rzinn 

s 


tc 

* * 

* 

* 

Ibll 



mar 


nop 


tr 

* * 

* 

* 

zro 


aO 

gi 

a1 

el 

* 

the 

! two numbers 

are reversed 

the the 

program can 

continue process 

■k 

* 

(ie 

1. e contains 

the negative 

numbe r. 

) 





epos 

tc fp 

* 

* 

k 

ssgn 



mar 


nop 


LbU 

tc * 

* 

* 

k 

$ 0100 



nop 


cmrO 



tr * 

* 

* 

k 

e=g 



nop nop 

nop 

nop 


* 

tc tn 

* 

* 

k 

zapp 



mar 


nop 


* 

by here E 

and 

g have different 

signs 

. If they have the 

same 


* 

mantissa. 

the 

result should 

be 

zero. 

This is what 

the above 


* 

•k 

lines 

of 

code 

determine. 








tc * 

■k 

* 

* 

$ 0020 



nop 


cmrO 



tr * 

k 

* 

* 

e-g 



a1 gi 

aO 

nop 



tc tn 

k 

* 

* 

LbU 



mar 


nop 



tc fn 

k 

k 

* 

LbU 



mar 


nop 


k 

tr * 

k 

k 

k 

k 



nop nop 

bsri 

f1 


★ 

if the 

mantissa of 

g is greater 

than 

the mantissa 

of e. 

force 

the 

* 

* 

resultant 

e. 

sign 

I and 

exponent 

to 

be that of g. Else 

force 

it to 

be 

* 

lb 11 

tr * 

* 

* 

* 

e-g 



aO gi 

nop 

nop 



tr * 

* 

k 

* 

g 



a1 eO 

nop 

nop 



tr tnn 

* 

k 

* 

en 



aO eO 

nop 

nop 
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tr tnn * 

* 

* 

e+i 

aO 

eO 

nop 

nop 


tr * * 

* 

* 

e 

f1 

eO 

aO 

go 


tc * * 

* 

* 

$ 0010 


* 


cmrO 

nnrm 

tr fnn * 

* 

* 

e-1 

aO 

eO 

* 

* 


tc fnn * 

* 

* 

nnrm 


mar 


nop 


sh fnn * 

* 

* 

* 

nzin 

nzin 

Lzin 

s 

* 

This routine 

normlizes the data 






tr * * 

* 

* 

g 

aO 

fO 

* 

* 


tc * * 

* 

* 

$ 3fff 


★ 


gO 


tr * * 

* 

* 

and 

* 

k 

aO 

fl 


tc * * 

* 

* 

$ 0002 


k 


cmrO 


sh * * 

* 

* 

* 

nzin 

Lzin 

nzin 

s 


sh tpn * 

* 

* 

* 

nzin 

rzin 

nzin' 

s 


sh fpn * 

*. 

* 

* 

nzin 

roin 

nzin 

s 


tc * * 

3P 

* 

$ 0000 


eOgI 


e1g0 


tc * * 

df 

* 

$ 0000 


* 


* 

A 

* 

this routine 

sets 

the sign to the 

correct sign and returns to the calling 

* 

routine. It is seperate because somewhere a 

sign 

convention changed. 

zapp 

tr * * 

3P 

"k 

zro 

aO 

fo 

a1 

fl 


tc * * 

df 

k 

'$ 0000 


nop 


cmrO 

* 

this routine 

1 

handles numbers that 

have different 

exponential signs. 

nsh 

tc * cLO 

* 

* 

$ 001.0 


nop 


cmrO 

TC 

* 

bug in assembler. 

null line will 

not be assembled. By this point 

* 

in the program, the exponent on one of the 

two numbers 

must 

* 

be Less than 

zero. 

This part of the routine 

will 

force 

the negative 

★ 

part to be 

stored 

in brg register. 

Since a 

swap can take place. 

* 

all the original flags must be reset in the 

event 

•of ashift. 


tr * * 

* 

k 

9 

a1sw 

* 

aOrz 

gO 

ic 

tc tnn * 

* 

k 

glz 


mar 


nop 

* 

The g/brg 

register 

contains the negative exponent 

, no swap needed. 


tr fnn * 

* 

k 

* 

f1. 

-9l 

fO 

,g0 


tr * * 

* 

* 

* 

bsrO 

fO 

bsrl 

fl 


tr * * 

* 

* 

'g 

aO 

brgO 

a1 

brgi 


tr * * 

* 

* 

* 

bsrl 

gi 

f1 

el 


sh uns * 

■k 

* 

* 

Lzin 

nzin 

lzin 

S 

4> 

sh * * 

* 

* 

* 

rzin 

nzin 

rzin 

S 

7s 

'ifc- 

This swaps 

the two 

numbers and resets all the flags needed .by the 

* 

* 

rest of the routine. 





Ts 

gi-2 

tc * *. 

* 

* 

$ 0000 


eO 


•gD 

tr * * 

* 

* 

e-g 

a1sw 

* 

aOsw 

go 
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tr * * 

k 

* 

g 

alrz 

nop 

aOrs 

icrO 

* 

Calculate 

the 

number of 

shifts needed, if 

it is ■ 

< 0, 

it 

is 

* 

actually > 

80 

(16), so 

return the value in 

the F 

register. 


tc tnn * 

* 

* 


rtnf 

mar 



nop 


tr * * 

* 

* 

g 

aOsw 

eO 

a1 rz 

nop 


tc * * 

* 

* 


$ 0010 

■k 



go 


tr * * 

* 

* 

e-g 

a1 

nop 

aO 


gO 


tc fnn * 

★ 

■k 


rtnf 

mar 



nop 

* 

If the number 

of 

shifts 

required is > 16, 

return 

the 

data in 

* 

F register 

■ 









tc * * 

* 

* 


$ 0000 

* 



cmrO 


tc * * 

* 

•k 


$ 0000 

* 



el 


tr * * 

* 

* 

* 

bsrO 

eO 

fO 


gO 


tc * * 

* 

* 


shft 

mar 



nop 

"k 

tc * * 

* 

* 


$ 0001 

* 



cmr3 

* 

k 

prepair to 

shift 

the data and return to shifting 

routine. 

rtnf 

tr * * 

jp 

* 

zro 

aO 

eOgl 

a1 


elgO 

k 

tr * * 

df 

* 

* 

* 

k 

k 


* 

k 

Return the 

contents of 

the F register. 





comf 

tc * * 

* 

* 


$ 0000 

brgO 



brgi 


tc * * 

* 

* 


$ 0006 

tOwa 



tlwa 


tc * * 

* 

* 


$ 0000 

tfOn 



tfin 


* 


the 0 in Location 6 of the temporary files is a cycle counter, 
it keeps track of the class currently being worked upon. 


* After normalizing the data vector, store it, repeat until all 

* the elements are finished, then repeat the cycle until all four elements 

* are finished b.eing processed. 

* 


tc * 

* 

* 

k 


$ ODOa 


tOba 


tiba 

tr * 

★ 

* 

k 

k 


LfOn 

eO 

L-fln 

nop 

tc * 

k 

* 

k 


$ 0102 


nop 


gO 

the data vectors 

are stored in 

Location 100 

of the 

Large file 

tr * 

k 

* 

k 

add 


aO 

lOad 

aO 

Had 

tr * 

k 

* 

k 

* 


LfOu 

tfOu 

Lflu 

tflu 

tr * 

k 

* 

k 

* 


IfOu 

tfOu 

Lflu 

tflu 

tr * 

k 

* 

k 

* 


LfOu 

tfOu 

Lflu 

tflu 

tr * 

k 

k 

k 

* 


LfOu 

tfOu 

Lflu 

tflu 

tc * 

k 

k 

k 


$ 0003 


nop 


icr3 

tc * 

k 

k 

k 


$ 000 a 


tOba 


tiba 

tc * 

cL3 

k 

k 


$ 0002 


tOwa 


tlwa 
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tc 

* 

* 

* 

* 


$ 0010 


lOad 


Had 

Lolp t-r 

* 

i'n3 

* 

* 

* 


tfOu 

brgO 

tflu 

brgl 

tc 

* 

* 

sr 

* 


fpar 


mar 


* 

tr 

* . 

★ 

* 

* 

•k 


IfOu 

fO 

tflu 

f1 

tc 

* 

* 

* 

* 


$ 0040 


* 


cmr3 

tc 

ad' 

* 

* 

* 


Lo1p 


mar 


* 

tr 

* 

•k 

** 

* 

* 


fO 

tfOu 

f1 

tflu 

tc 

* 

cl3 

* 

* 


$ 000 a 


tOra 


tira 


This stores the data normalized data vector in Locations 2-5 of the 
temporary file. Location' 6 is used for a counter. The results will 
be stored in the value pointed to by location 7 of the temporary file. 

This will fall through to the matrix processing routine. 


This is the beginning of the matrix multiply routine. 


stra tc 

* 

eta 

* 

* 


$ 

0000 


brgO 


brgl 

tc 

* 

* 

* 

* 


$ 

0006 


tOra 


t1 ra 

tr 

* 

★ 

* 

* 

★ 



tfOn 

P 

* 

* 

tc 

* 

* 

* 

* 


$ 

0010 


* 


q 

tc 

* 

•k 

* 

plql 


$ 

0040 


* 


go 

* was $ 

dooo to 

* 

nop! 








tr 

★ 

* 

* 

plql 

* 



mult 

eO 

nop 

nop 

* tc 

* 

* 

* 

* 


$ 

0040 


nop 


gO 

* this 

was here 

• 








tr 

* 

* 

* 

* 

add 



aO 

LOad 

aO 

.Had 

tc 

* 

* 

* 

*. 


$ 

0001 


tOba 


tiba 

tc 

* 

Sc 

* 

* 


$ 

0001 


tfOu 


tflu 


For indirectly addressing^ the current row of the normalized 
data vector 


tc * * * * 


$ 0002 


mlty tr * in1 * * * tfOu eO tflu el 

* 

* This Loads the multiplicand into the eO-el register pair. 

* 

tc •* * sr * fpmr mar nop 

★ 

* This does the program jump to the floating point multiply routine. 

* 

tr * * * * * Lflu gi If.Ou gO 

* 

* 
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* This step is done before the jump is actually executed. This will load the 

* multiplier into the gO-gl register pair. (F=EXG floating point mult) 

* 

tc * * sr * fpar mar nop 

* 

* This step will do a jump to the floating point addition routine. This rout- 

* ine calculates the sum of the contents of the F register and -the BRG regis- 

* ter pair. The result of the add is then stored in th.e F register. 

* 

tc * * * * $ 0004 nop icrl 

tc * * * * $ 0004 nop cmr3 

* the 0004 tests for indexi <> its compare 

* 


* This is executed before the jump. It will just load the- condition- register 


* 

with the 

next condition to be tested. 





tc ad 

* * * 

mlty 


mar 


nop 

* 

tr * 

* k k 

* 

fO 

brgO 

f1 

brgi- 

* 

On index 

register 1 not equal to 

its compare. 

jump to beginning of multi 

* 

* 

routine. 







* 

tc * 

* * * 

$ 0001 


tOba 


t1ba 

* 

tr * 

* k k ■ 

* 

tf1n 

eO 

nop 

-nop 

*• 

■k 

get address of jth 

item in the 

data vector. 


' 



•tr * 

k k k 

acO 

a1 

tfOd 

aO- 

tfid 


tr * 

■* * k 

acO 

aO 

tOra 

aO 

t1ra 

* 

tr * 

k k k 

acQ 

a1 

★ 

aO 

tira 

* 

the above 

was a change to insure 

that the program works, this is kept. 

* 

this will 

update the 

address for 

the next round, store it. 

and point to 

* 

■k 

item in question. 






k 

tr * 

in2 * * 

* 

tfOc 

eO 

tfic 

el 

* 

this will 

load the multiplier for 

the -second multiply into 

the eO-ei reg- 

* 

ister pair. Simultaneously, this 

will zero the temp 

f i le 

pointers. They 

* 

if 

will now 

point to the 

location of 

the accumulator. 




tr * 

* * * 

* 

bsrO 

gi 

bsri 

gO 


tc * 

* sr * 

fpmr 


mar 


nop 

k 

tr * 

k k k 

g 

aO 

gi 

a1 

gO 

k 

this is just a subroutine jump to 

the floating 

point 

multiply routine. 

* 

f=EXG 







tc * 

k sr * 

fpar 


mar 


nop 


tr * 

k k k 

* 

tfOn 

brgO 

tfin 

brgi 


* 

* 


F=F+BRS. This calculates the subtotal of the matrix multiply. 
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^ 0 / 


tr * * * * * fO tfOn f1 tfin 

tc * * * * $ 0Q03 tOba tiba 

* 

* The above two steps Load the sub total into the temporary file Location 

* zero. It them resets the read and write pointers of the temporary file t 

* Location two. 

* 

tc * * * * $ D004 nop icr2 

tc * * * * $ .0010 nop cmr3 

* the 0010 tests for index? U its compare, 

* This will do a test for index 0 not equal to its compare register. 

* ' ' 



tc ad 

cLI 

1 * * 

mlty 


jiiar 


nop 


• tc * 

* 

* * 

'$ .0000 


iargO 


brgi 


t.r * 

* 

* puql * 


* 

* 

mult 

mcr3 


tc * 

•k 

* * 

$ 0000 


tOba 


tiba 


tc * 

t 

* * 

$ 8000 


9.1 


nop 


tc * 

★ 

* * 

$ 0000 


nop 


-gO 


tr * 

* 

* * * 


tfOn 

,e0 

tfin 

el 

"k 

tr * 

* 

* * xpr 


aO' 

brgO ■ 

.a.1. 

brgi 

■k 

"k 

quadratic 

= quadratic * 

-1 






tc * 

•k 

* * 

$ 0006 


tOba 


tiba 


,tr * 

* 

,* >* ■* 


t.fpn 

lOad 

tfOn 

L-lad 

* 









* 

■fc 

Location 

of 

log (| sigma I) 







tc * 

* 

sr * 

fpar 


mar 


nop 


tr * 

* 

* * * 


IfOn 

fO 

Lfin 

,f1 


tr * 

* 

puq L * 


★ 


mult 

mcr3 

* 

lit 

calculate 

Log (det (sigma) )+quadrati c 






tr .* 

* 

* * zro 


aO 

eO 

f,1 

el 


tc * 

* 

* * 

$ ,0001 


g1 


nop 


tr * 

* 

* * zro 


fO 

eO 

aO 

go 


,sh * 

* 

k k k 


Lcirn 

lcirn 

lcirn 

s 


■sh * 

* 

k k k 


lei rn 

Lcirn 

lcirn 

s 


tr * 

* 

* * e-g 


aO 

.eO 

a1 

el 


.sh * 

* 

* * * 


rcir 

rcir 

rcir 

s 


sh * 

* 

* * * 


rcir 

rcir 

rcir 

s 


tr * 

* 

* pLqu * 


npp 

nop 

mult 

mcr3 

etst tc * 

* 

* * 

$ 0002 


nop 


cmrO 


tc fnn 

* 

* k 

pos 


mar 


nop 


* 


* For some reasons, exp onLy works for positive exponents. This 

* addition sho.uLd change the data so that it is positive. It will 

* then take the result and invert it by dividing by one. 

* 


sh tnn * * * 


* 


Lzin nzin nzin s 
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* 

* 

* 


By here the number is negative. This strips off the sign. 



tc * 

* sr * 


fexp 


mar 


nop 

k 

sh * 

* * * 

★ 


rzin 

nzin 

nzin 

s 

k 

call 

the exponentiation 

routine. 






tc * 

* * * 


$ 8000 


brgO 


nop 

it 

tc * 

* * * 


$ 0001 


nop 


brgi 

* 

’if 

This 

is 1.0 in the 

computers notation. 





tc * 

* sr * 


fdiv 


mar 


nop 


tr * 

*. * * 

e 


aO 

fO 

a1 

f1 

k 

tr * 

* * plqu 

* 


nop 

nop 

mult 

mcr3 

k 

This 

fdiv routine 

will 

calculate 

1/f, which 

is the same 

result 

k 

as the exp should 

give 

using the 

correct exponent 

• 



tc * 

* * * 


meet 


mar 


nop 

4. 

tr * 

* * * 

* 


fO 

eO 

f1 

el 

k 

k 

Skip 

the next few 

statements. 





pos 

tc * 

* sr * 


fexp 


mar 


nop 

k 

tr * 

* * * 

* 


* 

* 

* 

nop 

k 

by here, the routine is 

"OK" for 

positive numbers 

. No special 

k 

k 

needed here. When 

done. 

just fall 

through 




meet 

tr * 

* * * 

k 


nop 

nop 

* 

* 


* OKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOKOK to the first time through! 1M‘ 

'k 

* this calculates exp-C.5i:iog(det(inv(sigma)))-quadratic3> 



tr * 

*■ 

k 

plqu 

* 


nop 

nop 

mult 

mcr3 


tc * 

* 

k 

* 


$ 000 f 


tOba 


tiba 


tr * 

* 

k 

* 

* 


tfOn 

eO 

nop 

nop 


tr * 

* 

k 

* 

e+1 


aO 

tfOn 

aO 

tfin 


tr * 

* 

k 

* 

e 


aO 

lOad 

aO 

Had 

4. 

tr * 

* 

k 

* 

* 


bsrO 

If On 

bsri 

Ifin 

A 

k 

k 

store 

new 

value in 

the 

location given 

in tfOnCfH 



k 

k 

this will 

increment tf0nt63, the pointer 

to this array. 



tc * 

* 

* 

•k 


$ 0006 


tOba 


tiba 


tr * 

k 

* 

* 

* 


tfOn 

eO 

* 

* 


tr * 

k 

k 

* 

e+1 


aO 

tfOc 

aO 

idxO 
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tr 

i 

* 

* 

k 

* 



tfOn 

LfOn 

tf In 

Lfin 


tc 

•k 

* 

* 

k 


$ 

0004 


* 


icrO 


tc 

* 

* 

* 

k 


$ 

0001 


* 


CTnr3 


tc 

* 

* 

* 

k 


$ 

0004 


P 


* 


tr 

* 

* 

* 

k 

e 



a1 

* 

aO 

q 


tc 

* 

* 

* 

plql 


$ 

0151 


* 


gO 


tr 

* 

* 

* 

plql 

* 



mult 

eO 

tfOn 

idxO 


tr 

* 

* 

* 

* 

add 



aO 

lOad 

a1 

* 


tr 

* 

* 

* 

* 

add 



a1 

* 

aO 

Had 


tc 

* 

* 

* 

* 


$ 

oodo 


tOba 


tiba 


t'c 

* 

* 

* 

* 


$ 

0000 


tfOu 


tflu 


tc 

* 

* 

* 

* 


$ 

0001 


tfOu 


tflu 


tc 

* 

* 

* 

* 


$ 

000 a 


tOba 


tiba 


tc 

* 

* 

* 

* 


$ 

0002 


tOra 


tira 


tc 

adn 

* 

* 

* 


loip 


mar 


* 


tc 

* 

c-La 

* 

* 


$ 

0000 


eO 


el 

finl 

tc 

* 

* 

* 

*■ 



disb 


•lOad 


Had 


tr 

* 

* 

jp 

pupu 

* 



mult 

brgO 

* 

* 

* 

•k 

tc 

* 

* 

df 

* 


$ 

0000 


nop 


nop 

k 

f cmp 

tc 

* 

* 

* 

* 


$ 

0000 


tOba 


tiba 


********'***'**'*****************************Tfc*****************5fc* 

* This accepts the data in the E register and 6 register as * 

* Inputs. Initial Ly., the program stores the original data in * 

* temporary file, the E register goes in location 0 and the * 

* G register goes in Location 1. The following will also * 

* strip off the sign bit * 


tr * * * * e aO tfOu a1 tf1u 

tr * * * * g -aO tfOu ,a1 tflu 

************************************************************** 

* This routine strips off the sign bit. The correct sign bit * 

* is saved in the PAST register. * 

★★*:fc***ifc**^r***^3*r^******tfr*ilf*****'Ar*****:fcdlrArifc**'*Tit***-^**5fc***rfcA***** 


sh 

uns 

* 

* 

* 

* 

Lzin 

nzin 

Lzin 

s 

sh 

* 

* 

* 

* 

* 

rzin 

nzin 

rzin 

s 

tr 

k 

* 

* 

* 

e 

alsw 

eO 

aOsw 

e1 

tr 

k 

* 

k 

* 

g 

aOsw 

g'* 

alsw 

gO 


•k'k'k’k'kic’k-k'k'kic'k'k'k'k'kicii'k'kirk'k'kicic'kic’kic’kicic'k'k'kificirk'k'k'k'k'kirkicif'kieirkicielc'kic'kic-k'k 


* The 0D02 in cmrO will check for E1 negative. This is done * 

* in the past sense. If EKO^ then jump to the routine that * 

* wilt handle that case. * 

*************************************************** *-lc*******<* 


tc 

* 

* 

* 

* 

$ 0002 

nop 

tc 

* 

* 

* 

* 

$ 0000 

nop 

tc 

tpn 

* 

* 

* 

emng 

mar 


************************************************************** 


* by this point, the E register must not be negative (>=0) * 

* the 0020 in the ctfirO will test for g<0. If g<0, e is the * 

« greater of the two numbers. If not, they are both >= 0. * 
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************************************************************** 

tc * * * * $ 0020 * cmrO 

tc tpn * * * egrt mar * 

************************************************************** 

* This wiU determine if there is a difference in exp sgn. * 


************************************************************** 


tc tpn * * * $ 0000 * 

tc tnn * * * gxng mar 

************************************************************** 

* This will do a jump if the sign of G is 1, op G negative * 

* in the exponent portion. ' * 

************************************************************** 


tc * * 

tc tnn * 


* 

ic 


if 

* 


$ 0002 
ggrt 


* 

mar 


cmrl 

* 


cmrO 

* 


************************************************************** 


* By here, the exponent of g is positive. If the exponent of * 

* E is negative, both mantissas being positive, e<g * 

************************************************************** 


tr 

fnn 

* 

* 

* 

. e-g 

aO 

eO 

a1 

e1 

tc 

tnn 

* 

* 

* 

ggrt 

mar 


* 


tc 

fnn 

* 

* 

* 

$ 0000 


fO 


fl 

tc 

* 

* 

jp * 

$ 0000 


tOba 


tiba 

tr 

★ 

* 

df * 

* 

tfOn 

eO 

tfin 

el 


************************************************************** 

* Since both exponents and mantissas are nonnegative, this * 

* routine calculates e-g, exponents in the HOBP and mantissas* 

* in the LOBPs. If the result is < 0, g>e, else, return E. * 

************************************************************** 
ggrt tc * * * * $ 0001 tOba tiba 

tc * * jp * $ 0001 , fO f1 

tr * “* df * * tfOn eO tfin el 

************************************************************** 

* if f1>=0, e>g, return tfCID * 

************************************************************** 


egrt tc * * 

* * 

$■ 0000 

fO 


fl 

tc * * 

jp * 

$ 0000 

tOba 


tiba 

tr * * 

df * * 


tfOn eO 

tfin 

el 

************************************************************** 

* This is the 

section of the 

program that 

is called if 

E is 

* 

* negative, (mantissa) 




* 

************************************************************** 

emng tc * * 

* * 

$ 0020 

* 


cmrO 

tc fpn * 

★ if 

ggrt 

mar 


nop 


************************************************************** 


* This section does the compare if both the operands are < 0 * 

* This will determine if there is a difference in exp sgn. * 

************************************************************** 
ncmp tc * * * * $ 0000 * * 

tc tnn * * * gbng mar * 

************************************************************** 

* This will do a jump if the sign of G is 1, or G negative * 

* in the exponent portion. * 



************************************************************** 
tc * * * * $ OOOZ * cnirO 

tc fnn * * * nnpp mar * 

************************************************************** 

* By here, the exponent of g is positive. If the exponent of * 

* E is negative, both mantissas being negative, e>g * 

************************************************************** 

tc tnn * * * S OQOO fO f1 

tc * * jp * $ OQOO tOba tiba 

tr * * df * * tfOn ed tfin el 

************************************************************** 


* The above will return e * 

'kic^ic-kiicic'icieiisrkieieie'k'k-k’kicrkieie'k'ic'ki^-k'kic'kic'k'it'k'k'k'k'k'k-k-k'kicieieit’kicifie-ie-kic^'k'kicie-kit’kff 

gbng tc tnn * * * ebng mar * 

************************************************************** 

* Both 6's exponent and sign are negative. If true, the same * 

* holds true for E. If this is false, return g. * 

************************************************************** 


tc 

* * 

* 

* 


$ 0001 


tOba 


tiba 

tc 

* * 

jp 

* 


$ 0001 


fo 


f1 

tr 

* * 

df 

* 

* 


tfOn 

eO 

tfin 

e1 

************************************************************** 

ebng tr 

* * 

* 

* 

e-g 


aO 

eO 

a1 

el 

tc 

fnn * 

* 

* 


ggrt 

mar 


* 


tc 

* *' 

* 

* 


$ 0000 


fO 


f1 

tc 

* * 

jp 

* 


$ 0000 


tOba 


t1 ba 

tr 

* * 

df 

* 

ie 


tfOn 

eO 

tfin 

e1 

************************************************************** 

* Both 

the mantissa 

and the 

exponent 

of both E 

and G 

are 

.* 

* less than zero. 

calculate 

e-g. if 

result positive. 

g>e 

* 

************************************************************** 

gxng tc 

fnn * 

* 

* 


egrt 

mar 


nop 


tc 

* * 

* 

* 


$ 0000 

* 


* 


test tr 

* * 

* 

* 

e-g 


aO 

eO 

a1 

el 

tc 

fnn * 

* 

* 


egrt 


mar 


nop 

tc 

tnn * 

* 

* 


ggrt 


mar 


nop 

tc 

* * 

* 

* 


$ 0000 

* 


* 



************************************************************** 

* at this (proceeding line) both E and G are positive. The * 

* sign of the exponent of g is negative. If the sign of the * 

* exponent of E is positive, e>g, hence return E. * 

************************************************************** 


nnpp tr 

* 

* 

* 

* 

e-g 

aO 

eO a1 

el 

tc 

tnn 

* 

* 

* 

egrt 


mar 

nop 

tc 

fnn 

* 

* 

* 

ggrt 


mar 

nop 

tc 

* 

* 

★ 

■* 

$ 0000 

* 

★ 
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